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内 容 简 介 


本 书 以 教育 部 推广 的 普及 型 电脑 coOMX 一 Pcl 为 对 象 ， 全 面 系 
统 地 介绍 了 电脑 系统 的 设备 、 构 成 、 上 术 操 作 等 基础 知识 及 BASIC 语 
言 ; 结合 实例 介绍 了 该 电脑 的 编辑 、 音 响 、 趣 味 等 功能 ;并 在 附录 中 
全 面 介 绍 了 该 电脑 外 部 设备 的 使 用 方法 及 系统 的 详细 技术 资料 。 

本 书 文 字 浅 显 ， 内 容 通俗 易 懂 ,特别 注重 上 机 操作 与 实践 。 书 中 提 
供 的 程序 紧密 结合 中 学 生 所 学 的 课堂 知识 及 生活 ， 生 动 有 趣 ， 引 人 人 入 
胜 。 本 书 可 作为 中 学 计算 机 正规 教学 及 开展 计算 机 课外 活动 的 参考 教 
材 。 对 于 具有 中 等 文化 水 平 而 又 迫切 希望 掌握 电脑 的 使 用 方法 和 学 习 
编程 的 广大 自学 者 来 说 〈 包 括 城镇 ， 农村 的 个 体 户 ,专业 户 ) ,本 书 还 
可 作为 速成 学 习 电 脑 的 辅导 教材 。 
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二 站 
且 百 


COMX--PC1 电脑 已 在 我 国 部 分 中 学 试用 一 年 多 了 。 
通过 一 年 多 的 教学 与 实践 活动 ， 根 据 COMX 一 PC1 
(COMX 一 35 的 改进 型 ， 二 者 的 软 、 硬 件 全 部 兼容 ) 电 脑 
的 特点 ， 我 们 编写 了 这 本 紧密 结合 上 机 操作 与 实践 的 电脑 实 
验 指导 。 有 目的 在 于 为 使 用 COMX 一 PC1 电脑 的 教师 、 学 生 
学 习 和 应 用 电脑 提供 参考 。 

全 书 共 分 十 章 ， 第 一 章 介绍 COMX 一 PC1 电脑 系统 设 
备 及 构成 ! 第 二 章 介绍 COMX 一 PC1 电脑 的 使 用 及 键盘 操 
作 ;， 第 三 章 介绍 COMX 一 PC1 电脑 作为 计算 器 的 使 用 方 
法 ， 第 四 章 至 第 十 章 介 绍 COMX BASIC 程 序 设计 语言 。 附 
录 中 全 面 介绍 了 COMX- PC1 电脑 的 外 部 设备 使 用 方法 及 
系统 的 详细 技术 资料 。 

本 书 文字 浅显 ， 内 容 通俗 易 懂 ， 注 重 上 机 实践 。 对 于 电 
脑 选修 课 的 上 机 实习 ， 是 一 本 不 可 缺少 的 指导 书 。 全 部 内 容 
可 以 安排 十 五 课时 上 机 ， 前 三 章 上 机 一 次 ， 第 四 章 上 机 一 
次 ! 第 五 章 上 机 一 次 ;第 六 章 上 机 二 次 ， 第 七 章 上 机 一 次 
第 八 章 上 机 三 次 第 九 章 上 机 二 次 ， 第 十 章 上 机 二 次 ， 附录 
部 分 上 机 一 次 。 

本 书 可 作为 中 学 计算 机 正规 教学 及 开展 计算 机 课外 活动 
的 参考 教材 。 对 于 具有 中 等 文化 水 乎 而 又 迫切 希望 掌握 电脑 
的 使 用 方法 和 学 习 编 程 的 广大 自学 者 来 说 ， 本 书 还 可 以 作为 
速成 学 习 电 脑 的 辅导 教材 。 如 果 读 者 身边 有 一 台 COMX 一 

e T-…。 


PC1 电 脑 ， 边 读本 书 边 上 机 实践 ， 很 快 就 能 初步 掌握 
COMX 一 PCI 电 脑 的 操作 并 可 以 编写 一 些 简 单 的 程序 。 

我 们 热切 希望 本 书 能 帮助 COMX 一 PC1 电 脑 的 用 户 尽 
快 学 会 使 用 COMX 一 PC1 电 脑 及 BASIC 语 言 ， 并 在 此 基 础 
上 继续 提高 。 若 本 书 能 为 电脑 在 我 国 的 普及 应 用 有 所 助 益 ， 
我 们 将 感到 欣慰 。 

由 于 我 们 水 平 有 限 ， 实 践 经 验 也 不 够 丰富 ， 缺 点 错误 在 
所 难免 ， 恳 请 广大 读者 批评 指正 。 
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8$ 1 COMX 一 PC 1 电脑 系统 的 设备 


COMX 一 PC1 电脑 是 一 种 技术 先进 、 用 途 广 泛 、 易 于 
掌握 的 普及 型 电脑 。 其 狸 特 的 趣味 功能 ， 使 它 成 为 青少年 学 
习 电 脑 的 好 友 。 

COMX 一 PC1 电脑 系统 同 其 它 类 型 的 电脑 一 样 ， 由 运 
算 器 、 控 制 器 、 存 储 器 以 及 输入 、 输 出 设备 组 成 。 

电脑 的 运算 器 、 控 制 器 是 电脑 的 中 心 部 件 。 特 别 是 控制 
器 ， 它 是 电脑 的 “神经 中 枢 ”， 由 它 统一 指挥 和 控制 电脑 各 
1 CPU (中 关 处 
理 器 ) 。COMX 一 PC1 电 脑 的 CPU 型 号 是 1802A , 它 是 一 种 
集成 度 很 高 的 芯片 , 即 所 谓 的 CMOS。1802A 在 处 理 数 据 时 ， 
一 次 可 处 理 八 位 二 进 制 数 ， 因 而 称 COMX 一 PC1 电 脑 为 作 
位 机 。 

COMX 一 PCli 议 的 存 信 器 是 用 来 保存 大 量 信息 的 设 
符 。 它 们 分 为 内 存储 器 和 外 存储 器 。 内 存储 器 简称 内 存 ， 是 
由 大 规模 集成 电路 芯片 充任 。 它 存 取 速 度 快 ， 直 接 与 PCU 
发 生 联 系 。 内 存 一 般 用 来 储存 程序 和 数据 。 

存储 器 的 窑 量 通常 用 存储 单元 的 多 少 来 衡量 。 一 个 存储 
单元 里 存放 的 一 组 二 进 制 数 叫 一 个 字 。 一 个 字 所 包含 的 二 进 
制 数 的 位 数 叫 字 长 。COMX- PC1 电 脑 存储 器 的 字 长 是 八 

ee 1 。 


位 。 

内 存 还 分 为 只 读 存储 器 (ROM) 和 随机 读 取 存储 器 
(RAM) 。COMX 一 PC1 电 脑 的 ROM 容 量 为 16K (1 玫 相 
当 1024 个 存储 单元 ) ， 它 里 边 存 有 COMX BASIC 解释 程 
序 。 电 脑 靠 这 个 解释 程序 才能 进行 工作 。 COMX 一 PC1 电 
脑 的 RA M 容 量 为 35K， 其 中 32K 提 供给 用 户 使 用 。 可 以 存 
储 程 序 和 数据 。 

由 于 COMX 一 PC1 电脑 内 存 容量 有 限 ， 特 别 是 当 电 源 
断 开 后 ,内 存 中 的 信息 将 全 部 丢失 。 这 样 就 需要 有 外 存储 器 。 
外 存储 器 容量 大 ， 可 永久 保存 信息 。COMX 一 PC1 电脑 的 
外 存储 设备 最 常用 的 是 一 般 盒 式 磁带 录音 机 。 在 高 质量 的 磁 
带 上 可 以 录 上 所 需要 的 各 种 信息 。 比 如 ， 游 戏 程序 、 教 学 程 
序 、 数 据 等 。 为 了 使 COMX 一 PC1 电 脑 有 更 强 的 功能 , 还 配 
备 了 软磁盘 机 。 由 于 软磁盘 机 操作 复杂 且 价 格 较 贵 ， 一 般 不 
使 用 它 。 

外 部 设备 也 就 是 输入 、 输 出 设备 .COMX 一 PC1 电 脑 的 
输入 设备 是 键盘 ， 输 出 设备 是 显示 器 〈 监 视 器 或 电视 机 ) 、 
功能 扩展 接口 板 和 打印 机 。 它 们 是 电脑 同 外 部 发 生 联系 〈 比 
如 同人 发 生 联 系 ) 的 媒介 ， 是 电脑 系统 必 不 可 少 的 设备 。 

COMX 一 PCl 电 脑 的 显示 器 可 以 是 监视 器 。 不 论 是 单 
绿色 的 还 是 彩色 的 ， 也 不 论 是 12 英 寸 的 还 是 14 英 寸 的 ， 都 可 
以 由 视频 输入 接口 通过 视频 信号 线 与 电脑 沟通 联系 。 此 外 ， 
普通 家 用 电视 机 也 可 作为 电脑 的 显示 器 。 不 论 是 黑白 接收 机 
还 是 彩色 接收 机 ,也 不 论 是 PALE 制 的 还 是 NTSC 制 的 均 可 充 
任 。 由 接收 机 的 天 线 接口 通过 电视 信号 连 线 沟通 与 电脑 的 联 
系 ， 可 以 在 电视 屏幕 上 得 到 满意 的 图 形 和 文字 。 


生 和 @ 


有 时 ,我 们 需要 将 一 些 结果 打印 在 纸 上 。 COMX--bPcl 
电脑 的 配套 功能 扩展 接口 板 及 打印 机 提供 永久 保留 信息 的 条 
件 。 

COMX 一 PC1 电脑 功能 扩展 接口 板 是 一 块 由 多 个 集 成 
电路 芯片 组 成 的 附属 部 件 。 它 的 加 入 使 电脑 功能 倍增 。 它 不 
但 能 使 COMX 35P 打印 机 打 输 出 印信 息 ， 而 且 可 使 用 户 直 
接 用 机 器 码 来 利用 电脑 ， 为 机 器 效率 的 提高 创造 了 条 件 。 

COMX 35P 打 印 机 是 COMX 一 PC1 电 脑 最 理想 的 配 套 
信息 记录 装置 。 用 该 机 打印 的 字符 、 图 形 美观 清晰 。 

COMX 一 PC1l 电 脑 使 用 的 键盘 与 CPU、RAM、ROM 
及 外 设 接口 一 起 构成 COMX 一 PC1 主 机 。 


8 2 COMX 一 PC 1 电脑 系统 构成 


根据 用 户 使 用 电脑 的 目的 不 同 ， 系 统 大 致 可 分 为 以 下 三 
类 。 

一 、 基 本 系统 

由 主机 、 显 示 器 组 成 基本 系统 。 利 用 基本 系统 可 以 进行 
全 部 非 保留 性 程序 设计 工作 ， 可 供 BASIC 语言 程序 设计 使 
用 。 该 系统 建立 步骤 如 下 ， 

1 。 将 电视 信号 线 接 至 电视 机 的 外 接 天 线 接口 和 电脑 的 
输出 接口 (VHF 接 口 ) 。 如 果 使 用 监视 器 则 应 将 视频 信 号 
线 接 监视 器 输入 接口 和 电脑 的 视频 输出 接口 。 

2 。 将 主机 所 带电 源 变压器 次 级 小 插头 插入 主机 电源 接 
口 (POWER) 。 

3 。 将 电视 机 或 监视 器 电源 及 主机 电源 变压器 接 到 交流 


”3 ， 


202V 电 源 上 。 (上 见 因 1.1) 


图 1 1 COMX 一 PC1 电 腑 基本 系统 


二 、 扩 充 系 统 

由 基本 系统 、 外 存储 装 署 〈 录 音 机 ) 组 成 扩充 系统 。 扩 
充 系统 除了 具有 基本 系统 的 全 部 功能 外 ， 还 可 以 进行 程序 、 
数据 的 存储 、 读 取 ， 文 件 的 建立 等 工作 。 该 系统 的 建立 步骤 
如 下 ， 

1 。 同 基本 系统 建立 步骤 1 、 步 又 2 。 

2 。 将 主机 所 带 红色 插头 线 的 一 头 接 主 机 CASSETTE 
EAR 接口 ， 另 一 头 接 录音 机 的 EAR 或 EARPHONE 或 
MON 或 MONITOR 接口 均 可 。 将 黑色 插头 线 的 一 头 接 主 
机 CASSETTE MIC 接口 ， 另 一 头 接 录 音 的 MIC 或 
MICROPHONE 接口 。 

3 。 将 电视 机 或 监视 占 、 有 录音机、 主机 电源 变压器 接 到 
交流 220V 电 源 上 。 〈 见 图 1.2) 

9 4 。， 


图 1.2 COMX 一 Pci 电 脑 扩 充 系 统 


三 、 全 系统 
由 全 部 设备 组 成 全 系统 。 该 系统 除 具 有 扩充 系统 的 全 冰 
功能 外 ， 还 具有 打印 、 监 控 、 编 写 机 器 语言 程序 等 多 种 用 
途 。 ee 
。 同 基本 系统 步骤 1、2。 
。 同 扩充 系统 步 邓 2 。 
。 将 功能 扩展 接口 板 插 入 主机 右 侧 冶 插 座 内 ， 用 电费 
二 由 展 接口 琶 与 COMX 35P 打 印 机 接 好 。 
4。 将 COMX 35P 打印 机 所 带电 源 变 压 器 的 小 播 头 播 
入 打印 机 电源 插口。 
5 。 将 全 部 设备 的 电源 插头 接 到 交流 220V 电 源 上 。 ( 见 
图 1.3) 
通常 ， 录 音 机 可 随时 接 入 或 取出 ， 即 俩 是 在 电脑 工 作 


y| 


四 
CT 
人 


时 ， 也 不 会 产生 不 良 影响 。 而 功能 扩展 接口 板 则 必须 在 全 部 
设备 断 电 情况 下 插入 或 拔 出 ， 否 则 ， 将 造成 功能 扩展 接口 板 
的 损坏 ， 影 响 电脑 的 使 用 。 


图 1.3 COMX 一 PCc1 电 脑 全 系统 


COMX 一 PC1 电 脑 基本 系统 的 使 用 在 正文 中 子 以 介绍 。 
扩充 系统 及 全 系统 的 使 用 在 书 末 的 附录 中 介绍 。 


第 二 章 ”基本 操作 和 键盘 
$ 1 基本 操作 


一 、 开 机 

在 基本 系统 构成 后 ， 可 按 以 下 步骤 操作 。 

1 。 将 主机 电源 开关 置 OFF ( 关 ) 位 置 。 

2 。 将 电视 机 的 频道 开关 置 二 产道 。 (这 里 以 PAL 制 
电视 机 为 例 。 如 果 使 用 NTSC 制 电视 机 请 参看 附录 。 使 用 监 
视 器 不 需要 调频 道 。) 

3 。 开 启 总 电源 。 

4 。 开 启 电视 机 电源 。 

5 。 置 主机 电源 开关 于 ON 位 置 。 此 时 可 以 听 到 一 支 伐 
耳 的 小 曲子 ， 主 机 上 的 红色 指示 灯亮 了 。 

6 。 调 整 电 视 机 频道 微调 器 ， 直 到 屏幕 上 出 现 


CO 了 X 
或 
COMX- 
COPYRIGHTED  @ 1983 BY 
COMX 
WORLD OPERATIONS LTD 


。， 调 整 电视 机 的 亮度 、 对 比 度 等 直到 满意 为 止 。 
9 7 。， 


8 。 按 键盘 上 的 任 一 个 键 〈 空 格 棒 除 外 ) ， 屏 幕 上 会 出 
现 
COMX BASIC  V1,00 
READY 
: 多 
这 时 ， 电 脑 系 统 已 经 建立 ， 并 且 处 于 BASIC 控制 下 ， 可 以 
利用 BASIC 语 言 工作 了 。 
4“:2 为 COMX BASIC 的 提示 符 。“ 2” 称 为 光标 。 
当 屏 幕 上 出 现 《: $2 信息 时 ， 就 可 以 使 用 BASIC 指 令 进 
行 工作 了 。 
二 、 关 机 
关机 操作 步骤 ， 
1 。 置 主机 电源 开关 于 OFF 位 置 。 
2 。 关 电视 机 电源 开关 。 
3 。 关 掉 总 电源 。 


$ 2 COMX 一 PC 1 电脑 键盘 


键盘 是 我 们 与 电脑 进行 对 话 的 工具 。 熟 悉 每 一 个 键 的 功 
熟练 掌握 键盘 操作 会 大 大 提高 使 用 电脑 的 效率 。 
一 、 键 盘 

COMX 一 PC1 电 脑 键 盘 见 图 2。1。 

键盘 上 共有 60 个 键 。 它 们 包括 ; 


能 


\ 


1 。 大 写 英 文字 母 键 A，B，…… X，Y，Z 
2 。 数 字 键 0，1，2，3，4，5，6，7，8， 
9 


图 2, 1 COMX 一 PC1 电 脑 键盘 


3 。 符 号 键 ”+，-， 米 ，A， 和 等 

4 。 功 能 键 CTRL，SHIFT，ESC，RT，RTL 等 

5 。 空 格 棒 

6 。 方 向 控制 键 “上 移 (全 ) ， 左 移 (4) ， 下 移 

(= ) ? 右 移 (》) 0 

二 、 键 

键盘 上 的 字母 键 、 数 字 键 的 排列 同 普通 英文 打字 机 键盘 
一 致 。 其 它 的 键 排列 各 有 不 同 。 下 面 简 单 地 介绍 一 些 键 的 功 
能 。 

1 。CR 键 (Carriage Return) 

CR 键 可 以 使 光标 移 至 下 一 行 的 最 左边 ， 并 且 使 电脑 接 
受 指 今 。 在 键盘 上 按键 后 ， 屏 幕 上 会 出 现 输入 的 信息 ， 但 此 

。， 9 。 


时 电脑 内 存 并 未 接受 任何 信息 ， 因 而 CR 键 实际 上 具有 使 电 
脑 接 受 指 令 的 功能 。 此 外 ， 当 输入 信息 发 生 错误 或 屏 幕 上 
光标 不 在 最 左边 时 ， 按 一 下 CR 键 可 以 使 电脑 处 于 常态 。CR 
键 通常 也 叫 RETURN 键 ， 或 叫 回 车 ， 常 用 符号 > 表示 。 本 
书 的 CR 键 用 [CCR] 表示 。 

2 。RT、RTL 键 (Reset) 

同时 按 RT 键 与 RTL 键 ,可 使 电脑 重新 启动 。 这 相当 于 热 
启动 。 此 时 将 清除 电脑 内 存 中 所 有 的 BASIC 程 序 ,使 电脑 回 
到 开机 时 的 状态 。 但 热 启动 不 会 清除 内 存 中 的 机 器 语言 程序 。 
通常 在 电脑 处 于 “ 死 ” 机 时 ,同时 按 RT 和 RTL 键 重新 启动 。 

3 。ESC 键 (Escape) 

ESC 键 按 下 后 将 中 断 正 在 执行 中 的 BASIC 指令 。 比 
如 在 执行 BASIC 租 序 时 ， 如 果 按 ESC 键 ， 屏 幕 上 会 出 现 

ERR CODE 0 

AT LINE 

READY 

: 多 
a 为 执行 中 断 时 的 行 号 数 。 在 中 断后 ， 电 脑 等 往 接 受 新 的 
BASIC 指 令 。 

4。CTRL 键 〈Control) 

CTRL 键 单独 按 下 不 起 任何 作用 ， 必 须 同 其 它 键 一 起 使 
用 。CTRL 键 同 其 它 键 一 起 按 下 时 ,有 一 些 特殊 的 功能 ， 这 将 
在 以 后 专门 介绍 。 本 书 以 CTREL 一 X(X 为 其 它 键 的 名 字 ,一 般 
为 字母 键 ) 表 示 。 比 如 CTRE 一 I 表 示 同 时 按 下 CTRL 和 I 两 个 
键 。 

5 。SHIET 键 〈Shift) 


10。， 


SHIEFT 键 其 在 变换 的 功能 ， 它 必须 同 其 它 键 同时 按 下 
才 起 作用 。 有 些 键 的 上 方 的 符号 斌 是 SHIEFT 键 与 该 键 同 时 
按 下 产生 的 。 比 如 “ (”、“ 和 ”等 都 是 要 自身 与 SHIFT 
键 同时 使 用 。 书 中 此 类 符号 将 直接 写 出 。 而 SHIFT 键 与 字 
母 键 同 时 按 则 用 SHIFT 一 X(X 为 字母 键 名 ) 表示 。 比 如 
SHIFT 一 A 就 表示 SHIEFT 键 和 A 键 同时 按 下 ，SHIFT 一 
M 表示 SHIFT 键 和 M 键 同时 按 下 。 
6 。DEL 键 (Delete) 
DEL 键 具有 清除 字符 的 功能 。 按 DEL 键 就 会 使 光标 左 
移 一 格 ， 并 在 屏幕 上 清除 该 字符 ， 直 至 光标 的 左边 为 提示 符 
时 。DEIL 键 才 失 去 作用 。 
7 。 算 术 运 算 符 键 
+ “加 号 键 
- 减 号 键 
冰 “” 乘 号 键 
/人 除 号 键 
和 人 ”了 乘 方 号 刍 
8 。 数 字 0 和 字母 O 
数字 0 ( 替 ) 和 字母 O 很 相似 ， 因 前 按键 时 要 特别 注意 。 
在 屏幕 上 零 显 示 为 @O (中 间 有 一 和 斜 道 》 用 来 区 别 英 文字 母 
O。 书 中 0 没有 划 线 ， 读 者 千 万 注意 不 要 误 认 为 是 字母 O。 


$ 3 ”按键 的 基本 指法 和 要 领 
一 、 基 本 位 置 


左手 按 下 列 键 
。11 。 


人 9 D 节 空格 棒 
(小 指 ) (无 名 指 ) (中指 ) (食指 ) (拇指 ) 
右手 按 下 列 键 
空格 棒 ] 开 L 
(拇指 ) 《食指 ) 〈 中 指 ) (无 名 指 ) (小指 ) 
二 、 手 指 按键 分 工 
各 手指 按键 的 分 工 见 图 2。2 


上 四国 


图 2， 2 手指 按键 分 工 


三 、 按 键 要 领 与 撤 巧 

按键 时 要 迅速 、 准 确 、 果 断 ， 要 轻 轻 地 按 ， 不 要 按 住 键 
不 放 ， 只 要 感到 已 经 按 下 就 可 以 了 。 

按键 时 要 逐步 养 成 眼 哺 不 看 键盘 ， 根 据 手指 分 工 按键 的 
好 习惯 ， 这 样 会 提高 输入 字符 的 速度 。 

凡 需 同时 按 两 个 键 时 ,例如 SHIFT 一 I 可 以 先 按 住 
SHIFT 键 ， 然 后 再 按 I 键 。 这 样 可 以 保证 同时 按 下 两 个 键 ， 
从 而 如 免 出 错 。 

e。 12 。 


$4 练习 题 


一 、 字 母 键 练习 

做 练习 时 每 打 完 一 行 要 按 一 下 CR 键 。 如 果 按 错 了 字 符 
则 要 用 DEL 键 改正 。 

根据 要 求 按 如 下 键 

人 5S D 下 ] 开 EL I 

ADJL SFK AFL DJSK 

FE  G | 本 C V B N 

AGCV LHNB SFGH _ JKVB 

了 Q O W Z M 叉 

PQX MWXZ MOPW OWR 

也 及 U 工 工 YY 

YER TUR RIU EYI 

ABCDERFGHIJKLMNOPQRSTUVWXYZ 
此 时 屏幕 上 已 充满 字符 ， 如 果 想 清除 它们 ， 不 必 关 机 ， 也 不 
必 按 RT 和 RTEL 键 ， 因 为 那样 对 机 器 毫 无 好 处 ， 只 要 执行 以 
下 操作 即 可 ， 打 入 

CPOS (0，0) :CLS CCRI] 
此 时 屏幕 上 就 没有 其 它 字 符 了 。 

二 、 常 用 字符 、 数 字 键 练习 

根据 要 求 按键 

1+2-3+4 米 5A6-7+8#910 [CCR] 

112 米 103+ 579 - 326 KCR] 

:< 妈 盖 = 和信 # 兄 () 《 CCR] 


。 13 。 


三 、 常 用 BASIC 字 练习 

先 将 下 面 的 BASIC 程 序 输入 到 电脑 中 。 

NEW [CCR] 

5 CPOS (0，0) :CL5S 

10 FOR I=1 TO 30 

20 READ A8 (IT) 

30 NEXT I 

40 DEFINT R 

50 了 R 民 =RND (29) + 1 

60 CPOS (10，15) : CLS 

70 CPOS (10，15) : PRINT AY8 CR) 

80 CPOS (15，14) : CLS 

90 INPUT BY8 

100 IF B&=AJ (CR) GOTO 50 

110 GOTO 80 

200 DATA “LET”，, “PRINT?”,sINPUT? 

210 DATA “GOTO”,“IF?,“THEN”， 
“REM? 

220 DATA “READ?,“DATA2?， 
“RESTORE?” 

230 DATA “END?”，,“DIM?，“FOR”，4TOY? 

240 DATA “NEXT”,sGOSUB”， 
“RETURNY? 

250 DATA “LIST”,“NEW?，“RUN9? 

260 DATA  “STEP?，“SIN?，“COS? 


270 DATA “LOG7:， EXP2?“INT7,“SQR? 


。14。 


CCR] 
CCR] 
CCR9 
CCR3] 
CCR] 
CCR] 
CCR] 
CCR] 
CCR] 
KCR3] 
CCRD7 
CCR] 
CCR] 


CCR] 


CCR] 
CCR] 


CCR3 
CCR] 
CCR3] 
KCRI 


280 DATA “SGN?”，“AB9?， “TAB? 人 CR] 

输入 完毕 后 打 

LIST CCR3] 
屏幕 上 会 出 现 上 述 程序 清单 。 检 查 是 否 有 错 。 如 果 有 错 ， 只 
需 重 新 打 信 该 行 即 可 ( 注意 修改 行 的 最 左 的 数字 应 与 原来 的 
一 致 : ， 无 误 后 打 

RUN CCR3] 
此 时 ， 在 屏幕 中 央 会 出 现 一 个 词 ， 下 方 有 个 “? ”， 有 照 出 现 
的 词 打 一 遍 ， 然 后 按 CR 键 。 如 果 操 作 正 确 就 会 出 现 另 外 一 
个 词 ， 如果 操 作 失误 ， 就 会 抹 去 你 打 的 字 ， 此 时 需 重新 打 。 
要 想 结束 这 个 练习 ， 只 需 按 ESC 键 ， 再 按 CR 键 就 行 了 。 停 
止 以 后 再 想 运 行 ， 请 再 打 

RUN CCR] 
即 可 。 


第 三 章 “” COMX 一 PCl 
电脑 做 为 电子 计算 器 的 使 用 方法 
一 般 的 电脑 都 可 以 做 为 计算 器 使 用 。COMX 一 PC1 电 


we 但 电脑 当 计算 器 使 用 时 不 象 一 般 电 子 计算 
只 靠 按 功 能 键 完 成 计算 ， 还 要 借助 PRINT 指令 来 实现 。 


S1 一 般 计 算 
例 1.1 计算 5+6 
打 入 
PRINT 5+6 CCR ] 
屏幕 上 会 出 现 


1 II 
在 计算 时 ， 任 何 运 算 符 号 都 不 能 省 略 ， 但 在 算式 的 后 面 一 定 
不 要 打 等 号 ， 而 在 算式 的 前 面 一 定 要 使 用 PRINT 指令 。 当 
然 ，CR 键 更 是 不 能 忘记 按 的 。 

例 1.2 计算 下 列 各 题 


(1)》75-17 
打 入 

PRINT 75-17 [CR] 
结果 是 


。 16 ， 


58 


(2) 7x8 

PRINT 7# 8 KCR] 
56 

(3) 56+ 8 

TRINT 56~ 8 CCR ] 
7 

(4)》 25 

PRINT 2 入 5 [CCR] 
32 

小 括号 可 以 在 算式 中 使 用 


例 1.5 计算 下 列 各 题 
(1) (5+6) (9 -7) 
打 入 
PRINT (5+6) 六 (9-7) [CR ] 


注意 乘 号 用 “《 半 ”， 不 能 打 “。”、“x? ， 更 不 能 省 略 。 
(2) (7-4) (19-14) (8 -3) 
打 入 
PRINT (7-4) 米 (19-14)A (8 -3) CCRI] 
结果 为 
3 
注意 除 号 用 “.”， 不 能 用 “+?。 
(3) (3 +24) (2x5) 
打 入 
。]17 。 


PRINT (3A3+2A4) A (2#5) 《CR] 
结果 为 

4。3 
值得 注意 的 是 ， 分 子 、 分 母 上 的 算式 需 分 别 加 上 小 括号 ， 否 
则 答案 就 不 对 了 。 


$2 较 复 杂 的 计算 


同 其 它 电 脑 一 样 ，COMX 一 PC 1 电脑 内 设立 了 一 些 基 
本 数学 函数 和 特殊 函数 。 这 些 函 数 除了 可 以 在 程序 中 使 用 
外 ， 也 可 以 象 在 多 功能 计算 器 中 那样 直接 调用 。 表 3.。1 列 
出 10 种 基本 函数 和 它们 的 功能 。 


表 .1 基本 画 数 表 
画 数 式 切 驶 | 
SIN (X) 求 X 的 正 驴 函数 值 。 (〈X 为 弧度 ) 
cos (X) 求 X 的 余弦 函数 证 《〈 X 为 弧度 ) 
ATN (XI) 求 x 的 反正 切 函数 值 
ExP (X) 求 指数 本 数 ex 的 值 
LoG (X) 求 自然 对 数 函 数 的 估 
5QR (X) 求 X 的 算术 平方 委 估 
ABS 《X) | 求 X 的 绝对 估 
INT (X) 求 不 大 于 X 的 最 大 素数 值 
SGN (X) | 求 X 的 符号 值 
?1 | 求 T 值 、〈3.14159) 


se 8 。， 


例 2.1 计算 下 列 各 题 

《1) 1 一 301 

PRINT ABS (=-30) CCR] 
30 

(2) arctg1 

PRINT ATN (1) CCR] 
。785399 

(如 果 输 出 数值 小 于 1 ， 则 小 数 点 左 沈 的 零 省 略 ) 

(3) e; 

PRINT EXP(2) CCR] 
7。38906 

《4) ln10 

PRINT LOG (10) [CCR] 
2.30259 

《5) sin30。 

PRINT SIN (PIA6) CCR] 
e5 

(6 ) cos60 

PRINT COS (PI 3) CCR] 
。500001 

在 计算 时 是 有 一 定 误差 的 。 

(7 ) 65 

PRINT SQR (65) CCRI 
8。06226 

(8 ) 对 3.758 取 整 

PRINT TINT (3.758) CCR] 


数 ， 
制 、 


以 后 在 计算 三 角 函 数 时 ， 自 变量 就 可 以 用 度 为 单位 了 。 


3 
(9 对 -4.762 取 整 

PRINT INT (-4.762) CCR] 
- 5 

(10) 分 别 取 - 6.8， 0，90 的 符号 


PRINT SGN (-6.8) CCR] 
SGN (0) CCR] 
0 

PRINT SGN (90) CCR] 
符 居 雪 的 衣 信 规则 是 


自 变 量 大 于 0 ， 函 数值 为 1 
自 变 量 等 于 0 ， 函 数值 为 08 
自 变量 小 于 0 ， 函 数值 为 ~ 1 。 


通常 ， 电 脑 的 常态 为 弧度 制 。 尽 管 机 内 设置 了 PI 函 
但 仍然 觉得 不 方便 。COMX 一 PC !1 电脑 提供 了 定义 度 


弧度 制 的 指令 。 具 体 做 法 是 先 打 入 
DEG CCR] 


例 2.2 计算 sin30。 


先 打 入 


DEG CCR] 


再 打 入 


PRINT SIN (30) CCR1J 
。5 


，20。， 


例 2.5 计算 cos60。 

可 直接 打 

PRINT COS (60) CCR] 

5 
要 想 使 电脑 再 回 到 弧度 制 ， 只 要 打 

RA CCR] 

即 可 。 

在 计算 函数 值 时 ， 函 数 的 自 变量 可 以 是 常数 ， 也 可 以 是 
代数 表达 式 ， 还 可 以 是 函数 式 。 在 计算 时 不 要 忘记 自 变量 要 
放 在 小 括号 内 。 

例 2.,4 计算 sin (arctg 1) 
直接 打 入 

PPINT SIN (CATN (1) ) [CR] 


结果 为 
.707103 


$3 导出 函 数 


COMX 一 PC 1 电脑 中 没有 设置 正切 函数 ， 但 我 们 可 以 
用 sinx/ cosx 求 出 tgx。 可 以 由 基本 函数 导出 的 函数 见 表 
3。2。 


21 ， 


表 5.? 导出 函数 束 


oo 
{ 


孙 数 式 用 基本 孙 数 表 示 式 
49 和 | SIN(X) Acos (X ) | 
10 1 CoS (X ) ASIN (Y) | 
SeCYX | 1 .CO5 (X) 
63cx | 1 ASIN (X) 
Greg ix ATN (X ASQR (1 一 XyX ) ) 1 
grcc0o5x -ATN(XASQR (1-XyX ) ) 11.5708 | 
arccfgx -~ATN (X) +1.5708 | 
recsecx ATN (SQR (XkX- 1)) + (SGN (X) ~ 2 

| 开 .5708 
arccscx | ATN (IAASQR (XyX-1) ) +〔《SGN (X) -1 

| #1.5708 ， 
2 (EXP (X) -EXP(-X) /2 
coshx (EXP (X) +EXP (-X) ) / 2 
198x -EXP (X)AA(EXP (X) -EXP (-X))#2 十 1 | 
PCcS ix LOG (X+SQR (X 末 X+1)) 
erccoskhx LOG (X+SQR (X 冰 X- 1)) 
are 1 和 ix LOG((1+X)A(I-X)) 2 


ec -er 一 


8$4 练习 题 


| 


、 计 算 下 列 各 题 
(1) 求 半径 为 ?2.5 cm 的 圆 的 面积 ， (19.635cm2) 
(2) 求 边 长 为 3.2 cm 的 正方 体 的 体积 。 


(32.768cm3) 
《3) 求 直 径 为 7.1 cm 的 圆 的 周 长 。 (22。3053cm) 
(4) 1/5+1/4+1/3+ 1/2 (1。.28333) 


(5) 7-XxX8+6-32+1-4+5xX7 
。， 22 。 


(21.1667) 


(6) 29-34X5? (-1001) 
(7) 1+2+3+4++5.……， + 2 (2107) 
二 、 求 下 述 函 数值 

《1) tg36” (《。726543) 
2) ctg50 (8391) 

《3) sec20” (1.05418) 
《4) csc40” (1。55573) 
《5) Cos294"” (406737) 
《6) arcsin (0.5) (30") 
(7) arccos (0。87) (515598 弧 度 ) 
(8) sin10"+cos20” (1.113347) 


《9) sin (32.4" 一 14.6") +tg43。.7"。 (1。68698) 
(10) arctg (-1.8) 二 arctg (3.1》 (11。.1759) 
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第 四 章 ”BASTC 语 言 的 基本 枝 念 


BASIC 语 言 是 一 种 高 级 程序 设计 语言 。 通 过 BASIC 语 
言 可 以 使 人 同 机 器 对 话 。COMX 一 PC1 的 BASIC 语 言 是 般 
过 BASIC 解释 程序 来 实现 其 功能 的 。 象 其 它 高 级 程序 设计 
语言 一 样 ;BASIC 语 言 有 自已 的 字符 、 字 、 语 句 (指令 ， 

以 及 自己 的 语法 规则 。 


$1 BASIC 语言 的 字 稚 


BASIC 语 言 的 字符 分 为 以 下 四 类 。 
一 、 大 写 英文 字母 
A，B，C，D，E，F，G，H，I，J K，L， Mr 
N，P，0，Q，R，S，T，U，V，W，X，Y，7Z。 
二 、 数 字 
0，1，2，3，4，5，6，7，8，93 


三 、 其 它 符号 
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训 
， 分 办 符号 


膛 芭 


呈 . 
喇 二: 
分 号 ， 打 印 分 界 符号 
: 冒号， 分隔 语句 符号 
。 ”小数 氮 符 号 
”″ 双 引 号 ， 字 符 由 分 界 符号 
4 。 专 用 符号 
和 字符 串 变 显 符 号 
\ 一 / 


空格 符号 〈 屏 幕 上 不 显示 ， 有 时 为 了 书写 方便 


用 此 符号 ) 
5 。 特 殊 符 号 
#。 间 号 
人 和 斜 杠 号 
人 花 号 
贺 方块 号 


这 些 特殊 符号 对 于 不 同 机 型 有 各 种 不 同 的 用 途 , 在 COMX 一 
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PC1 电 脑 中 会 用 到 # 、 和 和 国 号 。 


$ 2 ”BASIC 语言 的 字 


BASIC 字 一 般 也 称 为 BASIC 保 留 字 。COMX 一 PC1 电 
脑 的 所 有 BASIC 保留 字 列 在 书后 的 附录 中 。 这 里 只 列 出 一 
些 最 基本 的 BASIC 字 。 

LET，PRINT，INPUT，GOTO，IF，THEN， 
READ，DATA，RESTORE，REM， END，DIM， 
FOR，TO，STEP， NEXT， GOSUB， RETURN)， 
LIST，NEW，RUN。 


$ 3 BASIC 语言 的 常数 、 变 量 、 
函数 和 表达 式 


一 、BASIC 常 数 

1 。 数 值 常数 

在 电脑 中 数值 常数 〈 简 称 党 数 ) 有 两 种 形式 :整数 型 和 
实数 〈 浮 点 数 ) 型 。 无 论 哪 种 形式 的 常数 均 为 十 进 制 数 。 
COMX BASIC 中 的 整数 范围 是 -2147483647 至 
2147483647; 实数 范围 是 -0.170141x1038 至 0。170141 X 
1039 。 

COMX 一 PC1 电 脑 常 态 为 实数 方式 。 此 时 ， 屏 幕 上 显 
示 的 数 为 6 位 有 效 数字 。 绝 对 值 大 于 999999 或 绝对 值 小 于 
0.1 的 实数 用 科学 计数 法 表示 ， 即 用 10 的 n 次 寡 表 示 。 例 
如 ，17824000 在 实 型 时 表示 为 .17824 世 + 08。 小 数 点 左边 的 
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0 不 显示 ， 刁 + 03 表 示 10 的 8 次 宕 。 如 果实 型 数 超出 允许 范 
畦 ， 将 会 出 现 错误 信息 。 通 常 ， 除 需要 有 效 位 很 多 的 整数 运 
算 外 ， 我 们 都 使 用 实数 形式 来 表示 当 数 。 

2 .字符 串 常 数 

由 于 电脑 需要 完成 大 量 的 文字 处 理工 作 ， 所 以 BASIC 
语言 也 提供 了 字符 串 常 数 〈 简 称 字符 串 ) 。 字 符 串 是 除 双 引 
号 以 外 的 字符 的 集合 。 字 符 串 需要 用 双 引 号 “ 2》 括 起 来 。 
例如 “COMX2”，“BEIJING2” 等 。 双 引号 是 字符 串 分 界 
符 ， 不 能 做 字符 串 的 一 部 分 。 

字符 串 一 般 用 来 表示 人 机 对 话 的 语言 或 注释 程序 。 有 时 
也 用 做 运算 的 辅助 工具 。 

无 论 是 数值 常数 还 是 字符 串 常 数 在 电脑 工作 时 都 是 不 变 
汐 。 有 时 为 了 方便 也 称 它们 为 数据 。 

二 、BASIC 变 量 

BASIC 语 言 中 设置 了 BASIC 变量 。 每 一 个 变量 有 一 个 
名 字 。 一 般 称 为 变量 名 ， 为 了 方便 就 称 为 变量 了 。 电 脑 在 工 
作 时 ， 其 值 是 可 以 改变 的 。BASIC 变 量 可 分 以 下 几 类 。 

1 。 数 值 变量 

a。 简单 变量 

简单 变量 的 名 字 可 以 用 任 一 个 英文 字母 表示 ， 也 可 以 用 
任 一 个 英文 字母 打头 后 面 跟 数 字 0 至 9 中 的 任 一 个 数 表示 。 
例如 ，A，F，B 0，2Z9 等 都 是 简单 变量 名 。 简 单 变 量 名 
一 共有 286 个 。 人 简单 变 量 简称 变量 。 

b、 数 组 变量 

数组 变量 是 由 一 类 带 下 标的 变量 组 成 。 详 细 介 绍 见 第 八 
章 。 
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a。 人 简单 字符 串 变 量 

简单 字符 串 变 量 是 由 一 个 简单 变量 后 面 跟 一 个 “2 符 : 
号 构成 。 例 如 ，A8，C18 等 都 是 简单 字符 串 变 量 。 简 音 
字符 串 变 量 简称 串 交 量 。 

b、 字 符 串 组 变量 

字符 串 组 变量 由 带 下 标的 数组 变量 加 。. 上 “《&2” 组 成 。 俩 : 
如 A3 (3) 、C8 (6) 等 。 详 细 介 绍 见 第 八 章 。 

、BASIC 函 数 

ASTG 语言 设立 了 许多 函数 ， 除 齐 上 一 - 、 类 : 
函数 外 ， 还 有 随机 函数 RND， 打 印 格式 函 效 TA 
符 吕 函数， 比如 MID 8 等 。COMX BASIC 
函数 ， 在 以 后 各 章 将 详细 介绍 。 

四 、BASIC 表 达 式 

0 般 分 为 算术 表达 式 和 关系 天 达 式 。 

算术 表达 式 

0 党 数 、 函 数 、 运 算 符 等 构成 的 慌 子 叫 香 术 表 达 
式 。 例 如 ， 代 数 式 3x2?+X-sinx+l 写成 委 术 表达 式 为 
3 洲 XA2+X-SIN (CX) + 1。 半 径 为 f 的 圆周 长 写成 算 
术 表 达 式 应 为 2  PI 类 及。 底 为 b， 融 为 h 的 三 角形 面积 的 算 
人 

ee 表达 式 联 接 起 来 ， 煌 成 的 式 子 称 关 系 
表达 式 。 例 如 ， X+Y=SQR (Z) ，3 类 Y+ 2>=5 光 
SIN (A) 都 是 关系 表达 式 。 关 系 表达 式 多 用 于 条件 语 人 秘 
中 ， 其 用 法 也 是 相当 灵活 的 。 
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在 BASIC 表达 式 中 ， 构 成 表达 式 的 各 个 元 素 不 必 同 时 
尘 现 。 


3》4 BaAstC 程 序 


一 、 行 号 

每 个 BASIC 语句 或 指令 前 的 数字 称 为 行 号 。 COMX 
曙 ASIC 人 允许 的 行 号 数值 为 0 至 65535 之 间 的 自然 数 。 例 如 ， 
5，20，98，5076 等 均 可 做 为 行 号 。 一 般 来 说 ， 在 BASIC 
程序 中 ， 行 号 是 不 能 缺少 的 。 

二 、BASIC 话 名 

由 行 号 、BASIC 字 、 变 量 、 算 符 、 才 达 式 〈 不 都 是 必 
要 药 ) 按 一 定 的 语法 结构 组 成 的 式 子 叫 BASIC 语句。 
BASIC 语 句 的 功能 是 使 电脑 完成 基 一 个 特定 的 动作 。 一 般 
情况 一 行 只 写 一 个 BASIC 语句 。 例 如 : 

10 PRINT 5 尖 6 
是 一 个 有 打印 答 出 功能 的 BASIC 语 句 ， 执 行 这 个 语句 后 屏 
幕 上 会 显示 出 5 科 6 的 结果 。 再 如 

90 END 
也 是 一 个 BASIC 语 句 。 它 的 功能 是 使 电脑 停止 工作 。 

三 、BASIC 程 序 

程序 就 是 指令 的 有 序 集 合 ， 由 沙 于 个 BASIC 语句 按 基 
种 持 定 的 逻 猛 关系 排列 的 语句 集合 构成 了 BASIC 程 序 。 

电脑 执行 BASIC 程序 ， 一 般 是 按 行 号 的 顺序 由 小 到 大 


锋 序 执行 〈 右 革 记 可 能 跳跃 。 由 于 BASIC 解 生 程 庄 是 边 
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解释 边 执行 BASIC 语句 ， 因 而 BASIC 程序 运行 起 来 速度 
不 很 块 。 但 BASIC 程 序 占 用 内 存 少 ， 并 且 便 于 修改 ， 易 学 
易 用 。 因 此 ， 用 BASIC 语言 编写 的 程序 用 途 非 常 广泛 。 


。 30。 


第 五 音 ”最 基本 的 HAS [CC 语句 


最 基本 的 BASIC 话 名 包括 LET、PRINT 和 INPUT 语 
名 以 及 NEW、LIST 和 RUN 指 令 。 


$ 1 语句 、 指 令 简 介 


一 、LET 语 名 

LET 语 句 也 称 赋值 语句 。LET 语 句 的 功能 是 将 表 达 式 
揭 值 赋 给 变量 。 在 处 理 字符 串 的 时 候 ， 赋 值 语 句 是 将 字符 串 

二 、PRINT 语 句 

PRINT 语 句 称 为 打印 语句 。PRINT 语 句 的 功能 是 在 显 
示 屏 上 输出 变量 或 表达 式 的 实际 值 ， 并 能 将 字符 串 原 样 显 
示 。 这 个 语句 具有 运算 和 输出 双重 功能 ， 在 遇 到 表达 式 时 ， 
它 先 计算 后 输出 。 

三 、INPUT 语 名 

INPUT 语句 称 为 键盘 输入 语句 。INPUT 语句 的 功能 
是 等 竺 电脑 从 键盘 上 获取 信息 ， 然 后 把 从 键盘 上 得 到 的 值 或 
字符 串 赋 给 变量 或 字符 串 变 量 。 

四 、NEW 指 令 

NEW 指 令 是 清除 指令 。 它 将 使 电脑 内 存 中 的 BASIC 程 
序 全 部 消失 。 有 具体 地 说 ， 它 清除 内 存 中 的 用 户 程序 多， 但 不 
清除 数据 区 和 变量 中 的 值 。 
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五 、LIST 指 令 

LIST 指 令 也 称 列 清单 指令 。 它 的 功能 是 将 BASIC 程 序 
的 清单 显示 在 屏幕 上 。 根 据 显 示 的 信息 ， 可 以 检查 程序 是 否 
正确 。 凡 是 经 LIST 指 令 显示 出 的 信息 才 是 电脑 内 存 程序 区 
中 的 内 容 。 

六 、RUN 指 令 

PUN 指 令 也 称 执行 指令 ， 它 指挥 瑟 脑 开始 执行 BASIC 


所 》 
细 
训 
但 


冉 值 语句 一 般 有 以 下 凡 和 攻 式 。 

1。 行 号 LET 变量 = 算术 表达 式 

2 。 行 号 .ELRETT “ 串 变 量 = “ 串 常 数 ?2 

3 。 行 号 LRT 训 变 量 = 串 变 量 + 幢 变 量 + 

赋值 符号 左边 只 能 是 变量 或 串 变量 。 而 赋值 符号 的 右边 
可 以 是 算术 表达 式 、 变 量 、 常 数 或 函数 。 在 格式 3 中 ， 赋 值 
符号 右边 的 加 号 是 联接 符号 ， 其 功能 是 将 两 个 串 变 量 联 逮 

例 5.1 赋值 语句 

10 LET A=3 

20 LET B=5 光 6 

25 LET C=A+B 

30 LET A8=“ABC2 

40 LET B8= “DEF27 
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50 LET C8=AVY+BVY 
第 10 行 的 作用 是 将 3 赋 给 变量 A。 第 20 行 的 作用 是 将 5 乘 6 
的 结果 30 臣 给 变量 B。 第 25 行 的 作用 是 将 A 的 值 3 和 B 的 值 
30 相 加 后 的 结果 33 赋 给 变量 C。 第 30、40 行 的 作用 一 样 ， 是 
将 字符 串 ABC 和 DEF 分 别 妇 给 串 变 量 A& 和 了 3 器 。 第 50 行 
的 作用 是 将 A 有 和 B8 联接 起 来 嵌 给 C 区， 这 时 C8& 是 
ABCDEF。 

目前 各 类 电 蚁 的 赋值 语句 均 可 省 略 LET 这 个 保留 字 。 
因而 ， 有 有 无 LET 这 个 保留 字 的 赋值 语句 都 是 一 禅 的 。 

另外 ， 赋 值 滞 句 也 可 以 立即 执行 。 其 格式 同 基 本 格式 一 
样 ， 只 是 不 需 强 行 号 。 立 即 执行 的 髓 值 语句 一 般 用 途 不 大 ， 
只 是 在 调试 程序 时 才 用 到 。 


$3 打印 语句 


打印 语句 一 般 有 以 下 几 种 格式 。 

一 、 硬 定 赂 式 输 出 

PRINT 话 句 四 年 答 则 的 格式 为 ， 

行 号 PRINT 霄 达 式 ， 表 达 式 … 和 … 
汇 中 带 号 4“，2” 的 作用 是 使 输出 信息 按 固定 的 标准 格式 显 
示 。COMX 一 PC1 了 电 蚁 显 示 屏 上 ， 有 以 下 两 种 标准 格式 。 

1 。 不 大 于 8 个 字符 箱 出 ， 每 一 行 有 5 个 标准 打印 位 
置 ， 相 邻 的 两 个 位 置 之 间 室 8 位 间 页 ， 例如 

PRINT1，2，3，4，5》 6 
和 输出 显示 为 ， 


1 2 3 4 5 6 
2 。 大 于 8 个 字符 输出 ， 每 行 有 二 个 位 置 ， 位 置 间隔 为 


6 位 。 例 如 ， 


PRINT 0.875321 了 15， -0.123456 马 - 10， 
“ABCDEFGHIJKLMNY” 


输出 显示 为 


.875321 下 +15 -0.123456 民 - 10 
ABCDEFGHIJKLMN 

二 、 紧 资格 式 输出 
PRINT 语 句 紧凑 输出 的 格式 为 : 

行 号 PRINT 表达 式 ; 表达 式 ……. 


式 中 分 号 “; ”的 作用 是 使 其 前 后 字符 输出 为 紧凑 格式 ， 俩 i 


PRINT1 2 3 4 5 6 


输出 显示 为 


123456 


又 如 ; 


PRINT “A=2”; 5 

输出 显示 为 

A:=.5 

三 、 换 行 输出 

PRINT 语句 换行 输出 的 格式 为 ， 
行 号 PRINT 表达 式 


式 中 表达 式 后 不 带 任何 符号 。 例 如 ， 


10 PRINT 3 半 5 
20 PRINT 4 水 6 
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30 END 
该 程序 执行 后 的 结果 为 : 

15 

24 
这 就 实现 了 换行 输出 。 

四 、 字 符 串 输出 

PRINT 语句 的 字符 串 答 出 格式 为 : 

行 号 PRINT“ 字 符 串 ? 
或 

行 号 PRINT 字符 串 变 量 
式 中 双 引 号 〈(“ 2”) 是 字符 串 输 出 的 分 界 符 ， 它 不 能 做 
为 字符 串 的 一 部 分 。 凡 是 在 双 引 号 内 的 字符 都 会 原样 显示 出 
来 。 例 如 ; 

PRINT “AT+ B2 
输出 显示 为 

A+B 

输出 为 串 变 量 时 ， 会 将 串 变 量 所 包含 的 字符 串 全 部 显示 
出 来 。 例 如 ， 

10 Ag = “ABCD2? 

20 PRINT  A8& 


30 END 
程序 执行 后 的 结果 为 
ABCD 


五 、 格 式 国 数 输出 
PRINT 语 句 可 以 根据 格式 函数 个 AB 的 规定 按 一 定格 式 
罗 帆 。TAB 区 数 用 于 PRINT 语 句 的 格式 为 ; 
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行 号 PRINT TAB (表达 式 ) ， 表 达 式 
式 中 TAB 函 数 中 表达 式 的 值 应 在 0 至 39 之 间 。 其 功能 就 是 
在 紧 接 该 值 确 定 的 位 置 后 开始 打印 输出 。 例 如 ; 

PRINT TAB (17)》 12 
将 在 第 18 列 开始 打印 显示 12 这 个 数 。 

TAB 函数 中 表达 式 的 值 在 COMX 一 PC1 电 脑 上 只 能 取 
0 至 39 中 的 数 。 如 果 所 取 的 值 为 小 数 ， 函 数 会 自动 取 整 。 
TAB 冰 数 可 在 PRINT 语 名 中 连续 使 用 ， 但 一 定 注 意 要 用 
4 2 做 为 分 界 符 。 例 如 ; 

PRINT TAB (5)5 4ABC7 TAB (11) 3 
& 门 已 E2 
输出 显示 为 

ABC DEF 

六 、 混 合 输出 及 光标 定位 

上 述 几 种 输出 都 可 以 混合 联 用 。 

例 5.2 输出 格式 混合 联 用 

10 PRINGTT 6A72 5 《也 尹 ” 4C2 


20 A=4 

30 B=5 

40 C=6 

50 PRINT A，B，C 
60 PRINT 


70 PRINT “^A=”5 A，“B=”1B，“C=yi C 
80 END 

程序 运行 后 的 结果 应 为 : 
A B C 


36 。， 


A=14 B= 5 C=6 


程序 中 第 60 行 有 一 个 室 PRINT 语 句 , 它 的 功能 是 输出 一 个 空 
行 ， 并 且 将 光标 移 至 下 一 行 的 左边 起 始 处 ， 在 图 形 和 表格 输 
出 时 经 常用 到 空 PRINT 语 句 。 

COMX 一 PCl 电 脑 还 专门 设置 了 控制 光标 指令 ， 

CPOS (xy，y) 
其 中 x，y 分 别 为 行 、 列 参数 ， 可 以 是 表达 式 、 变 量 、 常 数 或 
函数 。x 的 取 值 范围 是 0 至 23，y 的 取 值 范围 是 0 至 39 。 
CPOS 指 令 可 使 光标 处 于 屏幕 的 任 一 位 置 ， 这 样 ， 就 使 输出 
打印 随心 所 和 欲 。 

如 果 在 CPOS 指 令 后 不 接任 何 语句 ， 那 么 光标 只 能 移 
行 。 一 般 情况 下 ，CPOS 指 令 后 都 紧 跟 有 PRINT 语 名 或 
CLS 指 令 。 例 如 ， 打 入 

CPOS (11，17) : PRINT “HELLO7” 
输出 的 HELLO 将 显示 在 屏幕 中 央 。 即 在 第 12 行 第 18 列 处 开 
始 打印 HELLO。 再 打 入 

CEPOS (11，17) : CLS 
执行 后 HELLO 就 会 被 清除 。 

CLS 是 COMX 一 PC1 电脑 具有 的 请 屏 指令 。 它 从 光标 
处 开始 清 屏 ， 直 至 屏幕 的 最 下 一 行 。 最 常用 的 清 屏 方法 是 ; 

CPOS (0，0) :CLS 
它 表 示 将 全 屏幕 的 内 容 完 全 了 予以 清除 。 

上 边 的 几 个 语句 中 ， 用 到 了 冒号 “， ”。 冒 号 是 语句 或 
指令 分 隔 符号 ， 实 际 上 ， 上 边 的 几 个 例子 中 都 是 两 个 指令 或 
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语句 。 中 间 由 《“:， ?2 分开。 在 BASIC 种 序 中 ， 一 个 行 号 可 


写 几 个 语句 ， 注 意 须 用 冒号 隔 开 。 


例 5.35 写 一 个 BASIC 程 序 ， 计 算 半 径 分 别 为 5 cm、 


7.5cm 的 圆 的 面积 和 周 长 。 
利用 公式 


圆 面积 = TR，? 
圆周 长 = 2rR 


我 们 先 写 出 半径 为 5 cm 的 圆 面积 和 周 长 的 程序 。 


10 
20 
30 
40 
50 
60 


R= 5 
A= 了 PI#RR 
C=2 灿 PI 类 有 
PRINT 和 A 
PRINT  C 
END 


在 程序 输入 前 应 先 打 入 NEW 指 令 。 注 意 不 要 忘记 按 CR 键 。 
现在 按 以 下 步骤 输入 程序 。 即 


NEEW 

10 了 R=5 

20 A=PI#R 和 
30 C=2 灿 PI#kR 
40 PRINT  A 
30 PRINT  C 
60 END 


KCCR3 
CCR] 
CCR3] 
CCR] 
CCR] 
CCR]] 
CCR] 


如 果 想 要 检查 输入 的 程序 有 没有 错误 ， 请 打 入 
LIST KCR] 
此 时 ， 如 果 没 错 ， 电 脑 屏 幕 上 会 出 现 你 输入 的 程序 ; 


10 


R= 5 


通 38 和 


20 A=PIkkR 类 R 

30 C= 2 灿 PI#R 

40 PRINT 和 A 

50 PRINT C 

00 END 
如 果 你 的 程序 输入 有 错 ， 请 改正 它 。 岂 一 行 有 错 就 改 哪 一 
行 ， 即 重新 打 入 该 行 ， 特 别 注意 行 号 要 正确 ， 新 打 的 一 行 与 
坦 行 的 行 号 要 一 致 。 最 后 再 用 LTIST 指 令 检 查 ， 直 至 完全 正 
确 为 止 。 

运行 这 个 程序 只 要 打 

RUN LCR]] 
屏 幕 上 就 会 出 现 

78.5298 

31.。4159 
说 明 半 径 为 5cm 的 圆 而 积 是 78.5398cm>* yy， 其 周 长 是 
:1.4159 ee 面 5 

在 输入 每 一 行程 序 时 ， 部 要 按 CR 键 。 这 是 因为 只 有 按 
CR 键 后 ， 输 入 的 信息 才能 进入 电脑 肉 存 中 去 。 衣 果 在 一 行 语 
名 后 不 按 CR 键 ， 则 会 出 现 类 似 

1]0 R = D 号 ) A= 王 PITI 米 R 米 民 30… 
这 样 的 错 训 语句。 电脑 是 多 不 全 接受 这 样 的 语句 的 。 初 学 者 
党 犯 的 毛病 就 是 站 记 按 CR 键 。 竺 别 是 打 完 程序 的 最 后 一 行 
后 ， 和 急于 运行 ， 银 忙 打 入 RUN， 线 如 最 后 一 行 是 

60 END 
- 打 成 了 

60 END RUN 


-39 ， 


这 完 就 全 错 了 。 还 需要 重新 打 入 这 一 行 。 结 果 是 欲 速 则 不 : 
达 。 
现在 来 计算 半径 为 7.5cm 的 册 面 积 和 周 长 。 不 必 重 新 人 答 
入 程序 ， 只 需 将 
10 R=5 
改 为 
10 R=7。.5 CCR3] 
即 可 。 然 后 检查 程序 是 否 改 好 。 
打 入 
LIST CCR3 
屏幕 上 应 显示 : 
10 有 =7。5 
20 A= 了 PI 汪 有 类 有 
30 C= 2 洲 PI#R 


40 PRINT A 
50 PRINT C 
60 了 END 


显然 ， 第 10 行 已 经 改 好 了 。 电 脑 的 特点 之 一 就 是 后 入 为 主 。 
此 时 变量 R 的 值 是 多 少 呢 ? 打 

PRINT R CCR] 
结果 显示 为 


2 


怎么 是 5 ， 不 是 已 经 改过 了 吗 ? 原因 是 这 样 的 ， 虽 然 新 的 语 
名 已 经 输入 ， 但 电脑 只 是 将 该 句 存在 内 存 中 ， 并 没有 执行 
它 ， 只 有 重新 执行 RUN 指 令 ， 才 能 使 10 语 句 起 作用 。 在 执 
行 RUN 之 前 ，R 的 值 仍然 是 5 。 现 在 打 


。 40 。 


RUN CCR 
屏 认 上 出 现 ， 

176.715 

47, 1239 
说 明 半 径 为 ?scm 的 圆 面积 为 176.715cm2， 周 长 为 47。1239 
CImo 


上 面 程序 的 输出 结果 不 是 很 直观 。 为 了 改善 它 ， 我 们 加 


入 下 面 几 行程 序 。 
35 PRINT 4R = 必 KCRI] 
36 PRINT R CCR] 
38 PRINT  “A=? CCR] 
45 了 PRINT  “《C=2 CCR] 
于 在 打 
LIST CCRI 
10 民 =7。5 


20 A= 了 PI 灶 及 米 有 
80 C= 2 灿 PI#R 
35 PRINT “R =? 
36 PRINT R 
38 PRINT“A=? 
40 PRINT 人 
45 PRINT“C=? 
50 PRIN 人 C 
60 下 ND 
强 在 打 
LE we 


RUN CCRI 

有 RR = 

7.5 

A= 

176.715 

C = 

47。1239 
这 个 输出 形式 也 不 理想 ， 现 将 40 行 改 为 : 

40 PRINT 4“R=2>， R，“A=7; A，,“C=25C 
然后 将 35，36，38，45，50 行 删 去 。 打 


35 [CCR ] 
36 CCR] 
38 CCR 3] 
45 CCR] 
50 CCR] 
然后 用 LIST 指 令 检查 是 否 改 好 ， 最 后 打 
RUN [CCR] 
结果 为 ， 
R=7。5 A=176.715 C=47.1239， 


这 样 的 输出 结果 就 比较 醒目 了 。 


$ 4 键盘 输入 语句 


键盘 输入 语句 的 格式 有 下 列 三 种 ， 
1 。 行 号 INPUT 变量 {(， 变 量 …》 


< 4592 。 


2 . 行 号 INPUT 串 变量 
3 。 行 号 INPUT“ 字 符 串 ”变量 
在 执行 INPUT 语 句 时 ， 屏 幕 上 会 显示 出 一 个 “? 允 ， 
no 每 次 打 入 数据 后 ， 应 按 CR 
键 ， 这 样 才 能 完成 赋值 工作 。 如 果 数 据 是 字符 串 ， 不 需要 用 
双 引 号 。 
例 5.4 在 直角 三 角形 中 。 已 知 两 直角 边 长 ， 求 第 三 边 
的 长 度 。 
已 知 a= 3，b= 4 a= 7，b= 8。 利 用 公式 
C= ww az+b2 
编写 这 个 程序 的 方法 很 多 ， 下 面 介绍 三 种 供 参考 。 
程序 1 
l10 A=3 
20 B=4 
30 C=SQR (AkA+BkB) 
40 PRINT 4《A=23 A， 4B= 少 3 B， wkC=2 3 C 
50 END 
执行 后 的 结果 为 ， 
A=3 B=4 C=5 
要 计算 第 二 组 数据 需 将 第 10 行 、 第 20 行 改 为 
10 A= 了 7 
20 B=8 
RUN 
结果 为 : 
A= 7 B=8 C=10.6301 
。43 履 


如 果 我 们 再 算 几 组 数 ， 每 次 部 改变 程序 是 很 麻烦 的 。 
INPUT 语 句 提供 了 方 剑 的 办 法 。 

程序 2 

10 _ INPUT A，B 

20 C=SQR (Ak A+B 业 B) 

30 PRINT 4《A=7?7  A，4B=7 5 B，wkCc=5 it 


40 匡 ND 
打 
RUN 
屏幕 上 出 更 
了 
打 入 
7，8 CCR] 
结果 为 : 
A= 7 B=8 C=10.6301 
该 程序 还 可 以 有 另 一 种 编写 方法 。 
程序 3 


I0 INPUT“A=2A 人 

20 INPUT“B:=”B 

30 C=SQR (AkA+BkB) 
40 PRINT“C=2 了 CC 

50 END 


运行 后 为 ; 
A=?14 CCR3] 
B=? 20 CCR]] 
C=24.4131 


+ 44 。 


$ 5 几 个 值得 注意 的 问题 


一 、 任 何 一 个 指令 或 语句 想 要 让 电脑 授 受 ， 必 须 要 按 

CR 键 。 
、 程 序 答 入 执行 步 观 ， 

1 。 先 打 NEW5 

2 。 输 入 程序 ， 不 要 忘记 打 行 号 ， 语 句 输入 先后 不 了 ; 

3 。 检 查 程序 用 LIST'; 

4 。 有 错 及 时 改正 ; 

5 。 执 行程 序 用 RUN。 

三 、 改 错 要 点 

1 。 在 按 CR 键 以 前 发 现 错误 可 以 用 DELEL 键 和 CTRL 一 
R 键 来 改正 错误 。 假 如 在 下 面 语句 中 误 打 了 一 个 字 母 〈(R-~> 
A) ， 

10 PAINT 374 
此 时 还 没有 按 CR 键 ， 可 以 按 DEL 键 若干 次 ， 使 光标 移 至 
紧 接 P 的 右面 ， 即 

10 P4 
打 入 R， 显 示 为 

1]10 PR 
按 CTRL 一 R， 此 时 屏幕 上 会 显示 出 
。 40 PRINT 374 
1 经 改 好 了 ， 可 以 按 CR 键 了 。 

。 在 按 CR 键 之 后 立即 发 现 了 错误 ， 可 以 按 CTRL 一 

R 键 ， NI 例如 下 面 的 错 句 为 


e。 45D 。 


《冒号 误 打 为 分 号 ) 

300 CPOS (0 ,0 )5 CLS 
屁 时 刚 按 过 CR 键 ， 只 要 再 按 CTREL 一 R 键 就 会 显示 出 

300 CP S (0，0) CLS4 
用 DEEL 键 四 次 ， 重 打 ，CLS， 然 后 按 CR 键 ， 这 个 语 句 输 
入 就 正确 了 ， 即 

300 CPOS (0，0) ，CLS 

3 。 如 果 在 LIST 指 令 之 后 ， 发 现 了 错误 ， 最 简单 的 改 
错 方法 是 重新 输入 该 行 。 呈 如， 程序 

1]10 A=3 

20 B=5 

30 PRINT Ar+B 

40 PRINT AB 

50 END 
第 40 行 不 对 ， 只 要 打 入 

40 PRINT 和 A#B 
即 可 。 

四 、 行 号 间隔 

一 般 来 说 ， 行 号 间隔 视 个 人 习惯 而 定 。 如 果 程 序 很 成 
熟 ， 可 以 连续 使 用 行 号 ， 如 工 ， 2 .………: 。 但 通常 为 了 便于 修 
改 程序 或 播 入 新 的 语句 ， 在 行 号 选择 上 应 留 有 一 定 的 余地 。 

有 时 程序 修改 后 ， 行 号 的 间隔 就 会 不 一 至 了， 读 起 来 不 
太 方 便 。COMX 一 PC1 电 脑 提 供 了 重新 整理 行 号 的 指令 。 
其 格式 有 下 列 两 种 ， 

1。RENUMBER 

2。RENUMBER n 


ef 外 


格式 1 表示 整理 后 的 行 号 以 10 为 间隔 。 格 式 2 中 nm 为 一 个 眶 
然 数 ， 这 种 格式 表示 整理 后 的 行 号 以 an 为 间隔 。 例 如 ， 程 序 
1 A:#5 
2 C=6 
9 PRINT A+C 
13 END 
打 
RENUYBER 5 后 ， 
程序 行 号 已 经 按 5 为 间隔 重新 整理 了 。 打 入 


LI9T 
显示 为 : 
5 A=5 
10 C=6 
15 PRINT Ar+C 
20 END 


$6- 综 合 例 题 


例 5.5 变量 赋值 

10 A=10 

20 B=7 

30 C=A+B-3 

40 D=A-B+4 

50 PRINT“A=”%3A,*B=”5B,“C=" CD= ”了 
60 A=46 


。 47 * 


70 三 号 水 A 

80 Se 

90 PRINT“A=”A“B=”% B，“4C=2>3 C， 

“D=2”; D 

100 END 

RUN 

A=I0 B= 7 C=14 D = 

A=6 B=7 C.=35 D=42 

例 5.6 两 数 互 换 

10 TI= 7 

20 J=9 

30 PRINT “IT=2>5 TI，4J=23 了 

40 开 = 

50 工 = 了】 

60 了 = 开 

70 PRINT “I=25 TI，4J=23 

80 ENPD 

RUN 

工 二 人 J= 9 

I= 9 J= 7 
油 数 互 换 必 须 通过 一 个 中 间 变 量 ， 这 个 例子 中 中 间 变 是 是 
和 狼 。 

例 5.7 求 5 个 数 的 平均 值 

10 IJNPUT A，B，C，D， 民 

20 M= (A+B+C+D+E) 15 

30 PRINT 4《M=7 3 M 


40 END 

RUN 

到 卫 本 

M= 3 

倒 5.8 打 节 PHELLO 和 HHDY ARE YOUY? 
编写 这 个 程序 可 以 用 多 种 办 法 ， 通 让 这 个 练习 ， 我 们 可 以 合 
会 几 个 基本 话 句 的 特点 。 

1 PRINT“HELLO7 

20 PRINT “HOW ARE YOU? 了 

30 END 

RUN 

HELLO 

HOW ARE YOU? 

程序 2 

10 As HELLO 

20 B8= “HOW HOE YU? 

30 PRINT A8& 

40 PRINT B9 

50 END 

RUN 

HELLO 

HOW ARE YOU? 

程序 3 

10 INPUT A8 

20 INPUT BY 


>” 49 ee 


30 PRINT AVY 
40 PRINT BY 
50 END 
RUN 
? HELLO 
? HOW ARE YOU? 
HELLO 
HOW ARE YOUY? 
答 入 字符 串 不 需 用 双 引 号 。 
例 5.9 与 电脑 对 话 
10 PRINT “4I AM A COMPUTER2。 
20 INPUT“WHAT IS9 YOUR NAME7 NY 
30 PRINT 
40 PRINT “HELLO，>”，NY 
50 PRINT NOW TITKNOW YOUR NAMEI! >?” 
60 PRINT “LI LIKE”> NY 4AS A NAME。>” 
70 END 
RUN 
I AM A COMPUTER。 
WHAT IS YOUR NAME? LI WING 
HELLO，LI MING 
NOW I KNOW YOUR NAMEI! 
TI LIKE LI UING AS A NAME， 


3 0 。 


S$ 7 COMX 一 PC 1 电脑 的 屏幕 


和 字符 颜色 


一 、 屏 幕 颜色 

COMX-PC1 电 脑 屏 幕 具 有 八 种 颜色 ,由 指令 SCREEN 
决定 。 其 格式 为 

行 号 SCREEN (表达 式 ) 

表达 式 的 值 为 1 至 8 之 间 的 任 一 整数 。SCREEN 可 以 立即 
执行 。 例 如 

SCREEN (3) 
屏幕 变 成 蓝 色 

SCREEN (5) 
屏幕 变 成 红色 。 表 5.1 给 出 了 参数 与 屏幕 颜色 及 亮度 的 对 应 


表 5.1 屏幕 颜色 
参 数 | 屏幕 颜色 亮度 (%) 
1 黑色 0 
2 绿色 59 
3 蓝 色 11 
4 | 蓝 绿色 70 
5 | 红 色 30 
6 黄色 89 
7 洋 红色 41 
8 白 色 100 


se。 51L1 。 


二 . 字符 襄 色 

字符 上 闫 色 也 可 以 改变 ，COMX-- PC1 了 电 议 的 字符 分 成 
输入 字符 各 纺 出 字符 。. 两 类 字符 0 不 相同 。 改 变 字 符 颜 
色 用 COLOR 指 令 完成 ， 其 格式 为 

_ 行 号 COLOR (表达 式 ) 
式 的 值 可 取 工 至 12 之 间 的 任 一 莹 数 ， 例 如 


机 (2》 
键盘 输入 为 黄色 ， 电 脑 响 应 为 红色 。 
COLOR (8 ) 


键盘 输入 为 息 鱼 ， 电 脑 响应 为 费 色 。 表 5.2 列 出 了 参数 、 键 
盘 答 入 若 色 及 电脑 响应 颜色 之 间 的 其 系 。 


王 5 字 答 上 颖 名 
| 键盘 输入 出 脑 网 应 | 
上 参数 和 | 
| 颜 色 | 亮 上 度 (%)| 颜 色 |3 度 (%) | 
| 1 绿色 5 | 黑 色 "| 
| 黄色 89 红色 30 
3 蓝 绿 色 70 莫 。 色 1 | 
4 白色 100) | 滩 红 色 41 
5 蓝 色 11 | 黑 色 0 | 
6 洋红 色 41 红 色 30 
7 槛 绿色 70 绿 色 59 | 
8 白色 100 冲 色 89 | 
9 红 色 30 黑色 0 1 
10 洋 红色 41 蓝 色 1 
谋 贷 色 89 绿 色 59 
12 白色 100 蓝 绿 色 70 


三 、 色 调调 省 

色调 调节 用 指令 CTON 卫 来 实现 ， 该 指令 可 以 变换 屏幕 
和 和 字符 的 色调 。 基 格式 为 

行 号 CTONE〈 均 达 式 ) 
表 式 式 的 值 为 1 个 字符 颜色 变 深 ， 值 为 0 消除 取 值 为 革 的 区 
果 。 

以 上 几 个 指令 一 般 应 用 于 教学 程序 和 游戏 程序 中 ， 可 使 
图 形 丰 富 多 彩 ， 增 加 立体 感 。 如 果 使 用 的 显示 器 不 是 彩色 
:的 ， 显 示 差 别 只 表现 在 深浅 上 。 

例 5.10 编 一 程序 显示 屏幕 的 全 部 颜色 

10 FOR I=8 TO 1 9TEP 一 1 

20 SCREEN (DJ) 

30 丽 AIT (100) 

40 NCXT II 

50 END 
程序 中 10、40 行 为 循环 语句 ，30 行 为 等 赶 语句 。 运 行 这 个 盘 


序 ， 会 看 到 屏幕 上 颜色 的 交换 。 


$8 练习 题 


一 、 编 一 个 简单 程序 ， 求 一 元 二 次 方程 的 实 狗 《 设 方程 
存在 实 根 ) 。 人 参数 自己 定 。 

二 、 编 一 个 简单 程序 ， 当 A= 5，B= 4，C= 9 时 求 
Y= (AB-C) ~ (4C-AB) +ACAB 的 估 。 
三 、 己 知 任意 三 角形 的 二 边 长 a、b 和 一 丈 角 x， 求 第 三 
边 ， 公 式 C= va:+b:-2abcosx。 其 中 a =14， 


b=40，x=25"。 
四 、 用 INPUT 语 句 写 出 一 个 将 厘米 变换 为 英寸 的 程 序 
(换算 关系 1 英寸 = 2.54 厘 米 )》 并 转换 下 列 数据 ，2.54cm， 
78.8cm，172.8cmy，180cmo。 
五 、 根 据 运 动 学 公式 9 = Vot+at:/2， 编 写 一 个 求 距离 
5 的 程序 并 计算 9。 其 中 a = 1 米 一 秒 ?，Voe = 5 米 了 秒 ，t 分 
别 是 1 秒 ，1.5 秒 ，2 秒 ，2.5 秒 ，3 秒 ，3.5 秘 ， 4 秘 。 
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第 六 童 条 件 判 断 
y 1 条 件 分 支 的 引入 


在 第 五 章 $ 4 例 5.4 的 程序 3 中 ， 每 运行 一 次 程序 会 得 
到 一 次 结果 。 如 果 想 多 算 几 道 题 ， 就 要 打 多 次 RNTU 命令 ， 
这 当然 是 很 麻烦 的 。BASIC 语 言 条 件 分 支 语句 可 以 给 多 次 
运行 的 程序 提供 方便 。 

例 6.1 修改 例 5.4 的 程序 


10 
20 
30 
40 
50 
60 


INPUT 4A=?”A 

INPUT “B=>”B 

C=9QR (A#A+B#B) 
PRINT 4C=2 5 C 

IF A<>0 THEN GOTO 10 
卫 ND 


下 面 是 执行 这 个 程序 的 典型 例子 

RUN 

A=?3 
B=?4 
C=5 

A=?6 
B=?8 
C=10 
A=?0 
B=?0 
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C=0 

READT 

多 
下 面 我 们 来 看 一 下 这 个 程序 是 如 何 执行 的 。COMX 一 PC1 
了 电脑 允许 使 用 TRACE 命令 眼中 程序 ， 打 入 


1 TRACE 1 

然后 打 
RUN 表示 开始 运行 
TR [10] 表示 执行 第 10 行 
A=? 3 输入 3 
TR [20] 表示 执行 第 20 行 
B=?4 输入 4 
TR [30) 表示 执行 第 30 行 
TR [40] 表示 执行 第 40 行 
C=5 输出 结果 5 
TR [50] 表示 执行 第 50 行 
TR [10] 表示 执行 第 10 行 
A=? 6 0 
TR [20] 
B=?8 
TR [30 
TR K40] 
C=10 
工 R〔50] 
TR [10) 
A=?0 
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TR 207 


B=? 0 

TR [30] 

TR [40] 

C= 0 

TR [50] 因为 A= 0 ， 不 再 转向 。 
TR [60] 表示 执行 第 60 行 


显然 ， 电 脑 执行 每 一 行程 序 都 可 以 通过 TRACE 命令 来 实现 
跟踪 。 一 般 来 说 ， 在 编写 完 一 个 程序 后 ， 自 己 总 应 该 “ 走 一 
走 ” 程 序 , 这 样 在 上 机 调试 前 就 会 将 明显 的 错误 清除 ,以 便 提 
高 效率 。 在 上 机 调试 中 可 以 使 用 TRACE 命令 来 跟踪 程序 。 
TRACE 命令 的 格式 为 
行 号 TRACE 表达 式 
当 表 达 式 大 于 零 时 建立 跟踪 ， 当 表达 式 等 于 零 时 取消 跟踪 。 
一 般 来 说 ，TRACE 命 令 的 行 号 都 是 所 要 调试 程序 的 最 小 行 
号 (0 除外 ) 。 


32 条 件 语 和 句 


条 件 语句 就 是 根据 所 给 出 的 条 和 华 是 否 海 足 ， 而 决定 应 该 
执行 哪 条 指令 。 

一 、 条 件 语句 的 格式 

条 件 语句 在 COMX BASIC 中 的 标准 格式 是 ， 

行 号 IF 表达 式 1 关 系 符 表达 式 2 
THREN 可 执行 的 BASIC 语 名 
表达 式 可 以 是 常数 、 变 量 、 函 数 。 可 执行 的 BASIC 语句 色 
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括 LET、PRINT、GOTO 等 语句 。 

字符 串 也 可 以 进行 比较 ， 不 过 关系 符 只 能 使 用 “= ”和 
4<> 少 两 种 。 

二 、 条 作 语 句 浅 释 

条 件 语句 的 使 用 象 到 了 又 路 口 选择 道路 一 样 ， 根 据 条 件 
的 满足 与 否决 定 程序 的 走向 。 示 意图 见 图 6.1。 条 件 语句 的 
功能 实际 上 是 ， 满 足 条 件 就 执行 THEN 后 的 BASIC 语句 ? 
不 满足 条 件 就 执行 条 作 语 句 所 在 行 后 面 的 最 小 行 号 的 那 条 语 
句 。 例 如 : 


图 6.1 条 件 语句 示意 图 


50 IF A<>0 THEN GOTO 10 

60 END 
如 果 A 不 等 于 0 就 去 执行 第 10 行 。 如 果 A 等 于 0 就 去 执行 第 
60 行 停机 。 

以 下 几 个 语句 都 是 典型 的 条 件 语句 。 

100 IF X+Y>3.8 THEN GOTO 50 

170 IF AY=“A” THEN PRINT AVY 
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450 IF C8<>“ABC7 THEN C8 = “ABC2 

在 COMX BASIC 中 THEN 这 个 保留 字 可 以 省 略 。 例 
如 : 

50 IF A<>0 THEN GOTO 10 
与 

50 IF A<>0 GOTO 410 
是 等 价 的 。 但 要 切记 ， 诸 如 

50 IF A<>0 THFN 10 
这 样 的 语句 是 不 能 被 COMX 一 PC1 电 脑 接 受 的 ,因为 10 不 是 
一 个 可 执行 的 BASIC 语 句 ， 这 里 的 GOTO 是 不 能 省 略 的 。 

COMX 一 PC1 电脑 允许 在 条 件 语句 后 联接 其 他 语 句 ， 
但 要 用 冒号 隔 开 。 例 如 

40 IF A=C THEN E=C:PRINT C:GOTO 
了 70 

50 A=B 

60 PRINT A 

70 END 
程序 40 行 表 示 ， 如 果 条 件 A>C 满足 ， 将 执行 赋值 语句 
A=C， 然 后 执行 PRINT C， 接 着 转向 70 行 如果 条 件 不 
满足 ， 将 顺序 执行 50、60、70 行 。 

三 、COMX 一 PC1 电 脑 的 逻辑 算 符 

逻辑 算 符 AND、OR、NOT、XOR 在 COMX 一 PC1 电 
芒 中 是 不 能 随便 用 的 。 

AND 和 OR 的 功能 可 以 采取 复合 条 件 语 句 来 完成 。 

AND 的 功能 可 采用 串联 IF 来 实现 ， 例 如 ， 

30 IF A<5 IF A>0 THEN PRINT  A 
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表示 如 果 条 件 A< 5 和 A> 0 同时 满足 则 执行 PRINT A 语 : 
名 9 有 一 个 条 件 不 满足 都 不 去 执行 PRINT A 语 句 。 

OR 的 功能 可 用 并 列 IF 来 实现 ， 例 如 ， 编 写 一 个 “ 当 C 
等 于 7 或 C 等 于 13 时 就 打印 1， 否 则 就 打印 0 的 程序 。 程 . 
序 如 下 ， 

10 INPUT C 

20 IF C=7 THEN PRINT 1: END 

30 IF C=13 THEN PRINT 1 :END 

40 PRINT 0 

50 END 
这 个 程序 还 可 写成 

10 INPUT C 

20 IF C=7 THEN GOTO 9? 

30 IF C=13 THEN GOTO 69 

40 PRINT 0 

50 END 

60 PRINT 1 

70 END 
在 程序 中 使 用 多 个 END 语 句 是 允许 的 。 

例 6.2 编写 一 个 程序 ， 求 整数 集合 中 从 零 至 N 前 N + 全 
个 整数 之 和 。KN 由 键盘 和 输入。 下 面 介 绍 两 种 编 法 。 

程序 1 

10 INPUT“N=2”N 

20 I=0 

30 S=0 

40 S=S+I 
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50 I=I+1I 

60 IF I<=N THEN GOTO 40 

70 PRINT “SUM=25 5 

80 END 
计算 N = 10 的 结果 ， 

RUN 

N=? 10 

SUM =55 

程序 2 

10_ INPUT“N=2”N 

20 TI=0 

30 S= 0 

40 TI=I+ 工 

50 S=S+I 

60 IF I<N THEN GOTO 40 

70 PRINT “SUM=2 了 5 5 

80 END 
计算 N = 100 的 结果 : 

RUN 

N=? 100 

SUM=1050 
这 两 个 程序 原理 是 一 样 的 。 只 是 第 40 行 和 50 行 次 序 对 调 了 。 
第 60 行 的 条 件 略 有 不 同 。 语 名 I= I+ 1 是 一 个 加 1 工 语句 ， 即 
每 执行 一 次 这 个 语句 ， 原 有 变量 I 的 值 就 要 增加 1 。 语 名 S = 
S+ I 起 累加 器 的 作用 ， 它 相当 一 个 存储 库 ， 每 次 存 入 的 数值 
都 要 与 原 有 数值 相 加 。 下 面 简单 分 析 一 下 这 两 个 程序 。 
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程序 1 在 执行 后 首先 输入 N 值 〈10) 。 然 后 执行 I= 0 种 
S = 0， 这 是 将 两 个 变量 清 零 。40 行 执行 后 S 仍 为 0 。50 行 执 
行 后 I 为 1 。60 行 的 条 件 满足 转 回 执行 40 行 。 执 行 40 行 后 S 为 
1 。 再 执行 50 行 I 值 为 2 。60 行 条 件 语句 执行 后 仍 回 .40 行 。 
此 时 执行 40 行 后 S 值 是 1 + 2， 即 为 3。…… 直至 I 为 11 时 ， 
条 件 不 满足 ， 则 输出 结果 。 

程序 2 的 运行 同 程序 1 大 致 相同 ， 只 是 因为 它 先 执行 轴 
1 语句， 所 以 待 I 值 达到 N 值 后 就 可 以 输出 了 。 因 而 条 件 语 
句 中 用 了 小 于 符号 。 另 外 ， 程 序 2 比 程序 1 少 执行 一 次 40、 
50、60 语 句 。 


8$83 GOTO 语 句 


GOTO 语 句 是 一 个 无 条 件 转 移 的 可 执行 语句 。GOTO 请 
句 的 格式 为 ， 

行 号 GOTO ”表达 式 
通常 表达 式 的 值 一 定 是 程序 中 有 的 行 号 。 

GOTO 语 句 的 作用 就 是 不 论 什 么 情况 都 要 按 指定 的 行 号 
去 执行 转移 的 命令 。 因 而 也 称 为 强迫 转移 。 在 GOTO 语 句 的 
表达 式 中 ， 如 果 不 是 整数 ， 电 脑 会 自动 取 整 ， 然后 去 执行 要 
应 的 语句 。 

在 程序 中 一 定 要 保证 转向 的 行 号 存在 ， 否 则 会 出 现 错误 
信息 。 

为 了 保证 整个 程序 的 完美 ， 应 尽量 少 用 GOTO 语 句 。 好 
果 不 得 不 用 ， 则 尽量 转向 行 号 较 小 的 语句 。 这 样 可 以 加 快 程 
序 执行 的 速度 。 
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另外 ，COMX 一 PC1 电 蚁 握 供 了 一 个 加 快 执 行 G TO 
语句 的 命令 : 

RUN + 
三 命令 与 RUN 不 同 ， 它 首先 检索 你 程序 中 的 转移 语句 ， 变 
解释 转移 方式 为 绝对 地 址 转移 方式 ， 然 后 再 开始 执行 程序 。 
这 样 可 以 加 快 程 序 运行 的 速度 。 


$ 4 REM 语 句 和 RND 范 孝 


当 程 序 逐 渐变 得 复杂 时 ， 很 难看 出 程序 中 某 些 语句 是 在 
钴 理 什么 ， 这 就 需要 注释 。 为 了 使 程序 更 加 丰富 多 采 ， 就 需 
-要 有 一 个 产生 各 种 数 的 函数 。BASIC 语言 给 你 提供 了 这 样 
胸 语 句 和 国 数 。 

一 、 注 释 语句 

REM 语句 就 是 注释 语句 。 凡 是 要 加 以 说 明 的 文字 都 可 
以 借助 R 尼 M 语 句 来 实现 。 其 格式 为 ， 

行 号 REM 注释 字符 
飞 己 M 语 名 在 程序 中 只 起 注解 作用 ，BASIC 系 统 不 执行 这 个 
语句 ， 一 遇 到 它 就 会 自动 跳 过 去 。 

例如 下 面 的 语句 就 是 一 个 注释 语句 

10 REM 20 一 320 OUTPUT ANS9WER 
注释 为 20 至 30 为 输出 答案 。 

REM 语 句 中 的 注释 字符 没有 任何 限制 。 但 编写 程序 时 ， 
让 力求 注释 简明 ， 否 则 会 占用 过 多 的 内 存 空间 。 

二 、 随 机 函数 

随机 函数 也 称 随 机 数 ， 一 般 用 RND 表 示 。 它 可 以 产生 一 
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系列 随机 数 。 

RND 有 许多 用 途 , 常 用 于 模拟 、 游 戏 以 及 数学 程序 中 。 
如 果 我 们 向 空中 抛 100 次 硬币 ， 当 它 落 到 地 面 上 时 ， 有 多 少 
次 是 正面 向 上 ? 又 有 多 少 次 是 反面 向 上 呢 ? 这 个 问题 可 以 科 
用 RND 来 模拟 。 又 如 ， 在 教学 程序 中 ， 让 电脑 自动 地 提 出 
各 种 不 同 的 算术 题 也 可 用 RND 来 实现 。COMX 一 PC1 电 及 
的 RND 基 本 分 为 两 种 。 

1 。 浮 点 型 

RND 
它 产生 0 至 1 之 间 的 小 数 ， 可 以 表示 为 

0<_ RND<1 
它 不 同 于 其 它 电 脑 的 RND。 

例 6.5 产生 10 个 随机 数 

10 S=0 

20 9=9S+r1l 

30 A=RND 

40 PRINT A 

50 IF S<1l0 THEN GOTO 20 

60 END 
执行 后 一 种 可 能 的 结果 是 ， 

.519922 。87519 .571882 .554516 .180149 

。090253 .920173 .708761 .171021 .357216 
再 次 执行 就 不 一 定 是 这 个 结果 。 也 许 第 一 次 执行 也 不 是 这 个 
结果 ， 这 是 正常 的 。 它 只 是 产生 10 个 随机 数 和 而已， 具体 是 什 
么 数 是 不 一 定 的 ， 但 肯定 是 0 至 1 之 间 的 浮 点 数 。 

2 。 整 型 
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RND 《〈 表 达 式 ) 
表达 式 的 值 为 一 个 整数 ， 如 果 不 是 整数 ， 会 自动 取 整 。 
整 型 RND 产 生 一 个 大 于 0 或 等 于 0 且 小 于 表 达 式 值 的 
钙 机 整数 ， 可 以 表示 为 
0 和 RND (表达 式 ) << | 表达 式 | 
如 果 应 用 整 型 RND， 必 须 同 时 考虑 采用 整 型 变量 , 这 将 在 例 


题 中 介绍 。 


5 综合 例题 


例 6.4 绕 计 选票 

编写 一 个 统计 选票 的 程序 。 候 选 人 有 三 个 ， 人 参加 投票 人 
数 不 限 ， 求 出 每 个 候选 人 各 自 所 得 的 票数 。 候 选 人 的 姓名 
由 键盘 输入 给 字符 串 变 量 A 史 、B 史 、C8 。 字 符 串 A…B、 
C 代 表 选 票 的 性 质 〈 即 投 哪 个 人 的 票 ) 。 统 计 的 计数 变量 由 
A、B、C 表 示 。 字 符 串 R 为 重复 标志 ， 字 符 串 也 为 输出 结果 
狼 志 。 程序 如 下 : 

1l10 A=0:B=0:C=0 

20 INPUT NAME- 12 A8 

30 INPUT “NAME- 2 BY 

40 INPUT “NAME- 32C8 

50 INPUT “INPUT .ABCAAE 和 2X8 

60 IF X8= “ATHEN A=A+13:GOTO 50 

70 IF XY=“B”THEN B=B+12:GOTO 50 

80 IF X8= “CTHEN C=C+1:GOTO 50 

90 PRINT “INPUT ERROR OR ENDCR/E)7? 
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100 INPUT YY8& 

110 IF YY = 4R”THEN GOTO 50 

120 IF Y8< >“E” THEN GOTO 90 

130 PRINT Ai TAB (20) 8 和 A 

140 PRINT B8& TAB (20) ，B 

150 PRINT CY5 TAB (20) 5 C 

160 END 
程序 中 的 X& 为 接受 输入 选票 字符 的 串 变 量 。 第 110 行为 控 
制 返回 50 行 继续 统计 的 语句 。 而 120 行 则 为 输入 匡 而 达到 最 
后 输出 结果 而 设计 的 判断 。 同 时 防止 100 行 输入 时 发 生 错 
误 。 第 130 行 至 150 行 为 输出 统计 结果 。 

请 读者 自己 运行 这 个 程序 。 

例 6.5 算术 训练 程序 

编 一 程序 ， 让 电脑 提出 一 道 算术 题 ， 由 读者 回答 ， 答 案 
正确 电脑 再 出 新 题 ， 否 则 读者 重 做 原 题 。 读 者 可 以 事先 确定 
共 出 多 少 题 ， 题 目 分 为 加 、 减 、 乘 、 除 四 种 单项 计算 ， 不 确 
定 出 哪 一 种 ， 并 且 加 、 减 法 均 为 一 位 或 二 位 整数 计算 ， 潍 、 
除法 需 使 乘 〈 除 ) 数 为 一 位 整数 ， 被 乘 〈 除 ) 数 为 二 位 整 
数 ， 而 且 被 除数 是 可 以 被 整除 的 。 程 序 如 下 ， 

5 DEFINT 2Z 

10 Ag8= 《CORRECT2 

20 BY8=“《WRONG，TRY AGAIN?” 

30 _ INPUT “PROBLEM NUMBERS2”N 

40 TIT=0 

50 I=I+T 

60 IF I>N THEN END 
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70 X=RND (4) + 1 

80 GOTO 100 米 入 

100 REM ADDITION 

110 A=RND (100) : B=RND (100) 
120 PRINT AI +? Bi 《=75 
130 INPUT C 

140 IF C=A+B THEN PRINT AVY 
150 PRINT BY 

160 GOTO 120 

200 REM SUBTRACTION 

210 A=RND (100) : B=RND (100) 
220 IF A>B THEN GOTO 240 
230Y=A:A=B:B=Y 

240 PRINT A “《-7 By “=》3 
250 INPUT C 

260 IF C=A-B THEN PRINT A8 
270 PRINT  B& 

280.GOTO- 240 上 

300 REM MULTYPLICATION 


:GOTO 50 


:GOTO 50 


310 A=RND (90) +10:B=RND (10) 


320 PRINT AI “ 洲 ”35 Bi 《= 史 3 
330 INPUT C 


340 IF C=AkB THEN PRINT AY :GOTO 50 


350 PRINT BY 
360 GOTO 320 
400 REM DIVISION 
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410 Y=RND (9) +1:B=RND(9)+1 

420 A =Y 炎 B 

430 PRINT Agy 4] Bi 《=2; 

440 INPUT C 

450 IF C=Y THEN PRINT AY :GOTO 50 

460 PRINT BY 

470 GOTO 430 

该 程序 解释 如 下 。 

第 5 行 定义 变量 A 至 Z 均 为 整 型 变量 。 为 后 面 使 用 方便 ， 
第 10、20 行 给 A 吕 ，B 史 赋 字 符 串 。70 行 使 X 取 和 值 为 1，2， 
3 ，4 不定 。80 行 根据 X 的 值 转向 不 同 种 的 计算 。 比 如 X 为 
1， 转 向 100 行 〈 加 法 运算 ) ， X 为 2， 则 转向 200 行 〈 减 法 
运算 ) 等 等 。220、230 行 保证 A 大 于 B。420 行 保证 被 除数 可 
以 整除 。 

文 个 程序 用 的 随机 数 均 为 整 型 数 。 如 果 采 用 浮 点 型 需 做 
如 下 改动 ， 

70 X=INT (4 半 RND) + 1 

110 A=INT (100#k RND)s。 B=INT (100 业 RND) 

210 A=INT (100* RND) :B=INT(100 灶 RND) 

310 A=TINT (90kRND) +10:B=INT (10 水 
RND) 

410Y=INT (9#RND) +1:B=INT (9 水 
RND) + 1 
此 时 第 5 行 可 以 省 略 。 

请 读者 自己 试 运行 这 个 程序 。 

例 6.6 打印 “ 九 九 汇 法 表 2”。 要 求 个 位 、 十 位 各 自 对 
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齐 。 给 出 结果 永 为 ， 


16 
20 
24 
28 
32 
36 


25 
30 
3 
40 
49 


5 


2 
3 
奴 
5 
6 
7 
8 
9 18 27 
程序 如 下 : 
10 A= 1 

20 B=1 

C=AkB 


PRINT Cs; 
B=B+1l 
IF B<= 闪 
PRINT 

90 A=A+1 
100 IE A<=9 
110 上 END 


IF C<10 THEN 


49 
56 
63 


人 6 


$ 


THEN 


PRINT“ 


64 
72 81i 


2 


THEN GOTO 3 


GOTO 20 


程序 中 第 40 行 的 作用 是 当 C 什 小 于 40 时， 在 十 位 的 位 置 上 打 


一 个 室 格 ， 以 保证 个 位 对 齐 。 第 50 行 


证 在 同一 行 输出 ， 末 尾 有 


控制 转行 。 第 80 行 作用 是 取消 50 行 末尾 的 


【一 
一 个 分 号 


加 .让 倍 


是 输出 乘积 结果 ， 为 保 
。 第 70 行 是 当 A 等 于 B 时 
分 号 ， 使 下 面 的 输 


刀 写 ? 
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出 另 起 行 。 第 100 行 是 控制 变量 A 的 值 ， 实 现 预 定 的 输 出 结 
果 。 
请 读者 试 运行 这 个 程序 。 


$ 6 COMX 一 PC 1 电脑 的 编辑 功能 


在 输入 程序 (尤其 是 较 长 的 程序 ) 时 ， 不 可 避免 地 要 出 
现 各 类 错误 。 往 往 需 要 重新 输入 某 些 语句 ， 既 麻烦 又 浪费 时 
闻 。 为 了 更 快 更 好 地 输入 程序 “COMX 一 PC 1 电脑 提供 了 
EDIT 〈 编 辑 ) 命令 。EDIT 命 令 的 格式 为 

EDIT X 
其 中 X 是 所 要 编辑 语句 的 行 号 。 完 成 上 述 命令 后 就 进入 编辑 

编辑 完成 后 打 CTREL 一 S 键 ， 就 又 重新 回 到 BASIC 状 态 
之 中 了 。 

下 面 结合 实例 说 明 插 入 、 删 除 、 修 改 的 功能 。 

一 、 插 入 I (Insert) 

某 程序 有 一 错误 语句 为 ， 

l10 IF A=4 THEN 100 
这 个 语句 对 于 COMX 一 PC 1 电脑 来 说 是 缺少 GOTO 这 个 保 
留 字 的 。 我 们 来 插入 这 个 字 。 首 先 必 须 进 入 编辑 状态 ， 打 

EDIT 10 
按 CR 键 后 屏幕 上 出 现 ， 

l10 IF A=4 THEN 100 
此 时 光标 在 行 号 下 方 ，BASIC 提示 符 消失 。 按 空格 棒 将 光 
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标 移 到 THEN 之 后 下 方 。 
10 IF A=4 THEN 100 
4 
接着 打 I[， 这 时 就 可 以 播 入 新 字符 了 。 再 打 GOTO 即 ， 
10 IF A=4 THEN 100 
GOTO 
然后 按 CTREL 一 S 键 ， 屏 幕 上 显示 出 ; 
10 IF A=4 THEN GOTO 100 
4 
这 时 再 按 一 次 CTREL 一 S 键 就 又 回 到 BASIC 状 态 了 。 
10 IF A=4 THEN GOTO 100 
READY 
: 多 
可 以 利用 LIST 命 令 检查 一 下 修改 后 的 语句 。 如 果 无 误 就 表 
明 插 入 编辑 完成 了 。 
二 、 删 除 D (Delete) 
某 程序 中 有 如 下 错误 语句 
10 PRINT A，B，:C 
显然 多 了 一 个 “: ”号 ， 需 要 删除 ， 打 入 
EDIT 10 
按 CR 键 后 屏幕 上 显示 为 
10 PRINT A，B，:C 
4 
移动 光标 到 B 后 面 的 逗号 下 方 ， 即 
10 PRINT A，B，:C 
4 
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打 入 D， 然 后 按 空格 棒 一 次 ， 再 按 CTREL 一 5 键 ， 屏 幕 上 显 
示 为 
10 PRINT A，B，C 
4 
再 按 CTREL 一 S 键 ， 就 返回 到 BASIC 状 态 了 。 
READY 
: 多 
现在 打 LIST， 若 输出 显示 为 
10 PRINT A，B，C 
则 说 明 删 除 工 作 巴 经 完成 。 
三 、 修 改 C (Change) 
某 程序 中 的 一 个 语句 错 打 成 
100 IF C>I00 THEN PRINT C 
这 个 错误 是 将 数字 1 错 打 成 字母 1 了 。 打 入 
辽 DIT 100 
按 CR 键 后 进入 编辑 状态 
100 IF C>I00 THEN PRINT C 
多 
黎 动 光标 至 > 号 下 面 。 
100 IF C>I00 THEN PRINT C 
由 
打 入 C， 再 打数 字 1 ， 接 着 按 CTRE 一 S 键 两 遍 ， 就 可 以 区 
到 BASTC 状 态 了 。 打 
LIST 100 
屏幕 上 显示 出 ， 
100 IF C>100 THEN PRINT C 
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程 绪 了 
四 、 混 合 合 联 用 

在 混合 联 用 编辑 状态 下 ， 我 们 可 以 完成 插入 、 删 昧 、 修 
改 中 的 任 一 项 或 它们 的 组 合 ， 但 可 以 不 必 返 回 BASIC 状 

例如 有 一 语句 IF A=50 THEN B=A+1l :GOTO 
10 错 打 为 ， 

40 IFA3=5 THEN B=A+1 GOTO 10 
现在 先 要 出 除 A3 变 量 的 3 字 ， 然 后 在 5 字 之 后 加 入 一 个 0， 
最 后 改正 错误 ， 将 4 了 号 故 为 “:，” 号 。 先 打 入 

EDIT 40 

40 IFA3=5 THEN B=A+1， GOTO 310 
将 光标 移 到 A3 的 A 字 下 方 ， 打 入 D， 按 室 褒 棱 一 次， 可 技 
CTREL 一 35 键 。 

40 IFA=5 THEN B=A+1; GOTO 10 

4 
将 光标 移 到 5 的 下 边 ， 打 入 I， 再 打 一 个 0 ， 然 后 按 CTREL 
一 S 键 。 
40 IFA=50THEN B=A+1; GOTO 10 
4 
将 光标 移 到 分 号 前 面 字符 的 下 方 ， 即 
40 工 F 人 THEN B=A+ 15 GOTO 10 
儿 
打 入 C， 然 后 打 一 个 冒号 “: 2”， 再 按 CTRL 一 S 键 。 
40 IFA=50THEN B=A+1:，， GOTO 10 


e。 73 。 


全 部 已 改 完 ， 打 CTREL 一 S 键 ， 则 有 ， 

READY 

: 
再 打 

LIST 40 
屏幕 上 显示 为 : 

40 IFA=50THEN B=A+1 :GOTO 10 
完成 了 混合 联 用 编辑 工作 。 

除了 利用 下 DIT 命令 外 ,还 可 以 利用 DEL 键 ,'CTRL 一 
R 键 和 CTRE 一 C 键 进行 编辑 工作 。 

当 一 个 语句 打 完 后 ， 如 果 认 为 不 需要 它 〈 此 时 未 按 CR 
键 )》， 可 按 CTRL 一 C 键 ， 则 该 语句 不 进入 电脑 内 存 。 

当 输 入 的 两 个 语句 稍 有 不 同时 ， 使 用 CTREL 一 R 键 可 以 
很 方便 地 在 第 一 个 语句 的 基础 上 输入 第 二 个 语句 。 例 如 

10 IF A>1 THEN GOTO 50 

20 IF B>1 THEN GOTO 50 
这 两 个 语句 只 有 变量 的 差别 ， 可 以 先 输入 

10 IF A>1 THEN GOTO 50 
按 CR 键 后 打 

20 IF B 
接着 按 CTREL 一 R 键 ， 会 出 现 

20 IF B>1 THEN GOTO 50 4 
按 CR 键 后 ， 第 20 行 语句 就 输入 完成 了 。 

总 之 ， 灵 活 运用 COMX 一 PC 1 电脑 的 编辑 功能 会 大 大 
提高 调试 程序 的 能 力 。 
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$7 练 习 题 


一 、 编 一 程序 ， 对 于 输入 互 不 相等 的 三 个 数 ， 按 从 大 到 
小 的 顺序 打印 出 来 。 

二 、 编 写 用 RND 函数 模拟 投 硬 币 的 程序 。 大 于 0.5 的 
为 正面 ， 打 印 出 也 ， 并 记 次 数 ， 小 于 0.5 的 为 反面 ， 打 印 旨 
F， 并 记 次 数 。“ 投 币 ” 次 数 自己 确定 。 

三 、 编 一 个 程序 ， 打 印 出 100 之 内 的 素数 ， 并 求 出 这 些 : 
素数 之 和 。 
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第 七 章 处 理 数 据 


在 程序 设计 中 ， 常 常 需要 处 理 大 量 的 数据 ，COM 了 X 
有 ASIC 圳 供 了 处 理 数 据 的 话 句 。 


$》 1 READ、DATA 语 句 


READ、DATA 语句 是 用 来 处 理 大 量 数据 的 。 尤 其 通 
履 于 统计 、 数 据 分 析 等 题目 。 

一 、READ 语句 

READ 语 句 可 完成 数据 污 入 及 赋值 工作 。READ 话 句 的 
格式 为 ; 

行 号 READ 变量 {， 变 量 :……}》 这 时 的 变 汪 包 拓 所 襄 
欧 BASIC 变 量 。 

二 、DATA 语句 

DATA 语句 是 数据 语句 。 它 是 将 数据 存在 内 存 的 程序 放 
了 筷 。DATA 语句 的 格式 为 ， 

行 号 DATA 常数 {， 常 数 ……》 

这 里 的 常数 包括 字符 串 常 数 ， 但 使 用 时 需要 用 双 引 号 。 

使 用 DATA 语句 时 ， 无 须 考虑 行 号 大 小 ， 也 就 是 无 须 
考虑 它 在 程序 中 的 位 置 。 不 过 ， 按 习惯 常 进行 如 下 处 理 ， 一 
是 将 DATA 语 句 放 在 READ 语 名 之 后 ;二 是 将 DATA 语 但 
放 在 程序 的 最 后 。 
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三 、READ、DATA 语 名 的 使 用 

READ 语 句 与 DATA 语句 ， 在 程序 中 至 少 要 同时 出 现 
一 次 。 由 于 这 两 个 语句 各 自 都 能 使 用 多 个 变量 或 数据 ， 这 就 
会 造成 两 个 语句 不 成 对 出 现 的 情况 。 一 般 来 说 ，DATA 话 
句 出 现 得 多 一 些 。 

在 使 用 READ、DATA 语 句 时 ， 一 定 要 注意 数据 类 型 网 
变量 类 型 相 一 致 。 例 如 

10 READ A，B，CY 

100 DATA 3.4，7，“《“HELLOY? 

200 PRINT A，B，C8 

210 END 
执行 后 的 结果 为 

3。4 7 HELLO 

数据 区 中 的 数据 是 以 前 至 后 存放 的 ， 即 行 号 小 的 DATA 
语句 中 的 数据 存在 前 面 ， 行 号 大 的 DATA 语 句 中 的 数据 存在 
后 面 。READ 语句 执行 时 是 按照 数据 指针 的 位 置 读 取 数 所 
的 。 每 次 读 完 一 个 数据 ， 数 据 指针 会 自动 移 到 下 一 个 数据 位 
置 上 。 

例 7.1 对 应 读数 

10 READ A，B，C 

20 READ A8，B8，CY 

30 DATA1，2，3， ONE”， 《TWO ， 
4TRHEE2 

40 PRINT A，A8 

50 PRINT B，By9 

6C_ PRINT C，CVY 


70 上 END 
运行 后 的 结果 为 
1 ONE 
2 TWO 
3 THREE 
如 果 我 们 将 30 行 错 打 成 
30 DATA 1，“ONE2 ，2，“TWO2 ，2， 
《THREE2 
执行 后 屏幕 上 会 出 现 如 下 的 信息 : 
ERR CODE 9 
AT LINE 10 
-这 说 明 变 量 和 所 需 的 数据 发 生 了 不 对 应 的 错误 。 变 量 B 污 取 
了 字符 串 ONE， 这 是 不 允许 的 。 
如 果 数 据 区 中 的 数据 不 够 也 会 引起 停机 ， 但 数据 多 了 一 
般 不 会 影响 程序 的 执行 。 
例 7.2 计算 3.7，5.8，7.6，2。1 这 四 个 数 的 平均 
值 。 
编 这 个 程序 方法 很 多 ， 这 里 我 们 仅 列 出 两 个 供 参考 。 
程序 1 
10 READ A，B，C，D 
20 M= (A+B+C+D) 14 
30 PRINT “MEAN=2 5 M 
40 END 
50 DATA 3.7，5.8，7.6，2.1 
运行 后 的 结果 为 
MEAN=4。8 
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如 果 我 们 在 50 行 少 送 一 个 数据 

50.， 了 ATA 37 5o8 2 
运行 时 屏幕 上 就 会 出 现 如 下 的 信息 ， 

ERR CODE 32 

AT LINE 10 
这 表示 在 第 10 行 的 READ 语 句 中 ， 由 于 变量 读 不 到 数 据 配 
导致 停机 。 

程序 2 

10 9S9= 0 

20 READ A 

30 IF A=-1 THEN GOTO 60 

40 9=95+A 

50 GOTO 20 

60 M=S14 

70 PRINT “MEAN=2?”5 M 

80 END 

90 DATA 3.7，5。.8，7.6，2.1， 一 1 

个 程序 采用 了 循环 求 和 及 标志 转移 的 方式 。 第 40 行 是 典 融 
而 数据 - 1 是 转移 标志 ， 这 种 方式 在 程序 设计 中 
经 常用 到 。 

四 、 特 殊 DATA 话 名 

一 般 情 况 下 ， DATA 语句 中 的 数据 都 是 常数 ， 但 
2OMX 一 PC 1 电脑 还 允许 DATA 语 句 中 使 用 变量 。 例 如 

10 READ A，B，C 

20 DATA 3，5 

30 IJ=4 
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40 DATA 工 
50 TI=A 
60 READ A，X 
70 DATA A，[ 
80 PRINT A，B，C，I，X 
90 END 
执行 后 结果 为 
3 4 5 3 3 
40 行 中 I 的 值 为 4。70 行 中 A 的 值 为 3 ，I 的 值 也 为 3 。 


$ 2 COMX 一 PC 1 电脑 的 音响 功能 


COMX- 了 Cl 电脑 具有 相当 强 的 音响 功能 。 电 脑 靠 基 
些 指令 控制 音响 合成 器 推动 扬声器 发 出 声音 。 

一 、 音 乐 合成 音 

MUSIC 是 一 个 音乐 合成 音 指令 。 通 过 该 指令 ， 电 脑 可 
拟 奏 出 优美 动听 的 音乐 。MU SIC 的 格式 为 

行 号 MUSIC (X，Y，2Z) 
参数 X 决 定 音 符 ， 可 取 值 1， 2， 3， 4， 5， 6， 7， 表 
示 一 个 八 度 内 的 “DO” ，4“RAY2” ，“ME2 ， “FAR2 ， 
《SO2 ， “LA ，“SEFR”。 参 数 Y 决 定 音 程 ， 共 有 8 个 
音程 ， 分 别 取 值 1，2.， zs，4，5，6，7，8， 值 越 大 
音调 越 高 。 参 数 Z 决 定 音 量 ， 共 有 15 个 响 度 ， 分 别 取 值 1， 
2，3，4，5，6，7，8，9，10，1l，12，13，14， 
15， 数 值 越 大 声音 越 响 。 

MUSIC 指 令 可 以 立即 执行 。 一 旦 执行 了 MUSIC 指 令 ， 
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扬声器 就 一 直 发 声 ， 让 它 停 止 发 声 需 输入 以 下 指令 ; 

MUSIC (0，0，0) 

二 、 品 音 

COMX- PCl 电 脑 可 以 发 出 各 种 噪音 ， 这 些 噪音 常 良 
于 游戏 程序 中 模拟 某 些 声响 ， 以 增强 效果 。 了 噪音 指令 郑 
NOISE， 它 的 格式 为 ， 

行 号 NOISE (Y，2Z) 
参数 Y 决定 噪音 的 频率 ， 可 取 值 1，2，3，14，5，6， 
7 了 7，8， 数 值 越 大 频率 越 高 。 人 参数 Z 决 定 音 量 ， 音 量 分 为 15& 
级 ，Z 取 值 范 围 为 1 至 15， 激 值 越 大 声音 越 响 。 

三 、 单 音 

COMX- PCl 电 脑 有 个 频率 发 声 装 置 。 利 用 单 音 指令 
TON 忆 可 以 提供 准确 的 音 茂 。TONE 指 令 的 格式 为 : 

行 号 TONE (X，Y，2Z) 
参数 X 决 定 声音 的 频率 ， 取 值 范 围 为 1 至 128， 各 个 数值 表 示 : 
不 同 的 频率 。 人 参数 Y 决定 音程 ， 取 值 范围 为 1 至 8， 即 有 8 
个 音程 。X，Y 人 参数 结合 能 产生 8 x 128 个 频率 。 参 数 Z 的 作 : 
用 与 MUSIC，NOTSE 中 相应 参数 的 作用 相同 。 表 7.1 列 出 : 
了 TONE 指 令 中 参数 X 与 实际 和 输出 频率 之 间 的 关系 ， 它 对 应 
于 Y= 4 的 情况 。 藻 TONE 中 参数 X 不 变 ， 输 出 频率 与 音 程 . 
成 正比 。 即 每 高 一 个 音程 ， 输 出 频率 增加 一 倍 ， 每 低 一 个 音 : 
程 输出 频率 减少 到 原来 的 1 /~ 2 。 

用 单 音 配 合 MUSIC 指令 可 以 奏 出 各 种 各 样 的 曲子 。 此 : 
外 ， 为 了 使 音响 功能 更 加 琐 真 ，COMX 一 PC1 电脑 还 提 供 
了 大 范围 音量 调节 指令 。 其 格式 为 : 

行 号 VOLUME (2Z) 
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未 7.1 TONE 指 令 中 参数 X 与 频率 的 关系 (Y= 4) 


参数 x | 频率 (1z)| 音符 | 参数 | 频率 (Hz)| 音符 
86 257 C 82 270 De/ ct 

77 287 p 73 303 8 D 

69 321 E 65 341 

t 33 | os | s | at | 。 

34 410 Ab/G# 52 426 所 

49 452 6/ 人 二 46 汪汪 人 二 
参数 Z 可 取 值 1，2，3，4， 数 值 越 大 音量 越 大 ， 该 


指令 与 前 面 三 个 指令 〈 尤 指 其 中 的 Z 人 参数 ) 配合 ， 可 以 产 生 
60 个 不 同 级 别 的 响 度 。 

四 、 等 待 

为 了 编 曲 的 需要 ，COMX 一 PC1 电 脑 专门 提供 了 等 待 
语句 WAIT， 它 可 以 使 电脑 在 运行 中 等 待 一 段 时 间 。WAIT 
指令 格式 为 : 

行 号 巡 AIT (表达 式 ) 
表达 式 的 值 必 须 为 正 整数 ， 数 值 1 相当 电脑 CPU 时 钟 
128000。WAIT (1 ) 相当 于 暂停 约 6.4 毫 秒 ， 这 个 指令 不 
单 用 于 编 曲 ， 而 且 在 提示 程序 中 也 常用 到 。 

例 7.5 编 一 程序 ， 由 COMX 一 PCl 电 脑 演 奏 贝 多 苏 

。RA2 。 


的 第 九 交 响 乐 的 第 四 乐章 主题 “欢乐 颁 ? 。 


简谱 如 下 ， 
1=D 4/4 


3345 


5432 11123 3. 2 2 一 
3345|5432 攻 2.11 一 


| 


3345|54 3 人 |11238 |3.11 一 


程序 如 下 : 

10 READ X， Y 

20 IF X=0 THEN TONE (52，3，3) : 

GOTO 60 

30 IF X=-1THENTONE (0，0，0) ，END 

40 IF X=A THEN TONE (X，4，1) 

50 TONE (X，4，3) 

60 WAIT (T#k 80) 

70 A=X:， GOTO 10 

100 DATA 61，LTLT，61，1，58，1， 52， 1， 
852，1，58，1，61，1，69，1 

110 DATA 77，1，77，1，69，1，61，1， 
61，1.5，69，.。3，69，2。4 


130 


190 


DATA 61，1，61，1，58，1，52) 
52，1，58，1，61，1，69，1 

万 AT 于 人 777 开 5 777 7 69 工 7 人; 
69，1.5，77，。 3 ，77，2.。4 

DATA 69，1，69，1，61，1， 77， 
69，1，61，.3，58，。.3，61，1，77) 
DATA 69，1，61， .3，58，.3，61， 
69，1，77，1，69，1 

DATA 0，1，61，2.4 

DATA 61， 1，58，1，52，1， 52) 
58，1，61，1，58，.3，69，。3 
DATA 7777 王 和 77， 定 7 69， 下 -汉人 
69，1。5，77，。3，77，2.。4 

DATA -1，0 


1， 


1 工 


1 y， 


1 


该 程序 给 出 用 单 音 奏 出 的 D 调 乐曲 ， 音 程 为 5 ， 因 为 只 有 一 
个 低音 部 的 音符 ， 故 在 20 行 加 入 了 一 个 判断 ， 在 数据 中 加 
了 标志 “0”， 这 样 就 将 参数 Y 固 定 了 。 数 据 “- 12” 是 停 
机 标志 。 第 70 行 中 的 A = X 和 40 行 的 作用 是 为 了 使 非 连 音 的 
同音 符 产 生 节 丙 ， 如 果 没 有 这 些 语句 ， 就 会 奏 出 连 音 。 需 
要 说 明 的 是 ， 程 序 中 采用 了 国定 音量 , 这 是 不 符合 乐理 的 ， 
因而 该 程序 产生 的 乐曲 失去 了 原 旋律 固有 的 抑 、 扬 、 顿 、 所 
的 韵味 ， 这 无 疑 是 大 笋 风景 。 若 按 实 际 规律 处 理 强 弱 音 量 ， 
数据 量 将 要 大 大 增加 。 有 兴趣 的 读者 可 以 自行 尝试 。 
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$ 3 ”其它 的 语句 和 天 数 


COMX 一 PC1 电脑 还 具有 一 些 特 殊 语 句 和 函数， 有 些 
是 其 他 BASIC 语言 没有 的 。 

一 、 恢 复 数据 区 语句 

在 程序 中 我 们 常常 用 到 一 些 重复 的 数据 。 这 就 需要 用 
及 了 STORE 指令 。 该 指令 的 格式 为 ， 

行 号 RESTORE 
RESTORE 指令 用 在 有 READ、DATA 语句 的 程序 中 ， 
该 指令 可 使 数据 区 指针 恢复 到 数据 区 的 开始 位 置 。 

例 7.4 下 面 给 出 一 个 关于 使 用 RESTOREE 指 令 的 程序 
示例 。 

10 READ A，B，C 

20 READ X，Y，Z 

30 DATA 1，2，3，4，5，6 

40 人 RESTOREE 

50 IF X=4 THEN GOTO 20 

60 PRINT A，B，C 

70 PRINT X，Y，2Z 

80 END 
运行 后 屏幕 上 显示 为 ， 

1 2 3 

1 2 3 
程序 执行 第 10、20 行 后 ， 变 最 A，B，C，X， Y，Z 中 的 数 
值 分 别 是 1，2，3，4，5，6。 第 40 行 语句 使 数据 区 的 


指针 回 到 开始 的 位 置 。 由 于 X= 4 ,所 以 执行 20 行 ， 此 时 X) 
Y，2Z 的 值 分 别 变 为 1，2，3 了 。 


二 、 几 个 函数 
1 。MOD 函 数 
MOD 函 数 是 求 两 个 数值 相 除 的 余数 。 它 的 形式 是 
MOD (X，Y) 


两 个 参数 X，Y 均 可 以 是 表达 式 、 变 量 、 常 数 。MOD 函 数 的 
实际 计算 过 程 为 

X- (XAY) 米 立 
其 中 每 个 参数 都 需 先 通 过 四 舍 五 入 化 为 整数 ， 给 出 的 结果 也 
为 整数 。 例 如 

PRINT MOD (10，3) 
结果 是 1 。 又 如 

PRINT MOD (10ol.4，33.7) 
结果 是 33。 

2。 INUM 函数 和 FNUM 函数 

INUM 和 TFNUM 是 一 对 函数 它们 都 只 有 一 个 参数 > 
- 般 形 式 为 ， 

INUM (X) 

FNUM (XI) 
INUM 的 功能 是 将 浮 点 数 转 化 为 整 型 整数 ， 祭 准 是 进行 四 命 . 
五 入 ， 取 其 最 接近 的 整数 。 例 如 ， 

PRINT INUM (7.8) 
结果 为 8 。 又 如 ， 

PRINT INUM (7。4) 
结果 为 7。 
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INUM 函数 称 为 整 型 函数 。 

注意 ，INUM 函数 不 同 于 INT 函数 。INT 函数 称 为 取 
整 函数 ， 它 取 整 时 并 不 进行 四 会 五 入 ， 并 且 取 整 后 仍 为 浮 点 
型 整数 。 即 INT 〈X) 自动 给 出 一 个 不 大 于 X 值 的 最 大 整 
数 ， 例 如 ; 
INT (-7.6) =-8，INT (7.6) =7， 这 里 -8 与 7 都 
是 浮 点 型 整数 。 
INUM (一 7.6) =- 8;， INUM (7.6) =8， 这 里 8 与 
- 8 均 为 整 型 整数 。 

FNUM 的 作用 是 使 整 型 整数 转化 为 浮 点 型 整数 。 例 如 ， 

PRINT FUNM (INUM (7.9) ) 
结果 是 8 。 但 这 个 8 是 浮 点 型 的 整数 。 

三 、 调 试 程 序 的 一 些 命令 的 用 法 

1 。LIST 命 令 

LIST 命 令 在 前 面 已 经 多 次 用 到 了 。 电 脑 屏 幕 上 只 能 显 
示 22 行 字符 。 如 果 我 们 想 看 其 中 的 若干 行 ， 可 以 借助 LIST 
命 令 来 实现 。 

LIST 行 号 ni， 行 号 ns 
这 种 形式 是 让 电脑 列 出 从 行 号 ni 至 行 号 n* 之 间 的 全 部 程序 。 
但 要 注意 ， 行 号 ni 的 值 应 小 于 行 号 n: 的 值 。 当 然 使 用 这 种 形 
式 不 能 列 出 多 于 22 行 的 程序 。 

2 。RENUMBER 命 令 

前 面 已 经 提 到 过 可 使 用 ENUMBER 命 令 来 调整 行 号 。 
在 使 用 时 应 该 注意 程序 中 的 GOTO 语 句 。 如 果 程 序 中 有 

30 GOTO 200 语句 ， 
执行 RENUMBER 命 令 后 ， 行 号 200 会 自动 相应 地 改变 。 而 
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对 于 

30 GOTO 4#50 语句 ， 
执行 RENUMBER 命 令 后 ， 仍 然 会 是 GOTO 4 半 50， 这 样 
就 可 能 影响 你 的 程序 ， 破 坏 了 它 的 正常 运行 。 

3 。 RUN 命 令 

RUN 命令 我 们 已 经 很 狼 悉 了， 但 在 调试 程序 时 ， 如 采 
只 需 要 运行 基 一 部 分 ， 我 们 利用 如 下 命令 ， 

RUN 行 号 
该 命令 可 以 从 指定 的 行 号 开始 运行 程序 ， 显 然 会 使 调试 工作 
节省 时 间 。 


$4 综合 例题 


鲍 7.5 编 一 程序 ， 让 COMX 一 PC1 电 访 亦 出 歌 昌 
《4 我 的 由 国 心 2》。 可 不 考虑 声音 强 弱 。 

歌曲 简谱 如 下 ， 

1 = 上 5 44 

人 了 | @ 二 2 过 

《| 
YN 
6.- 一 | 6 一 一 9) 


6.32317|6- -0 |36532 卫 |3--35| 


6.765 32| 1 人 3- 1 2.385 |6--o| 


| 
{ 


6.32317|6- 一 0 13s6532 12|13--85| 
多 1 1 上 


88 。 


ee 二 ee | 
6.6 |1.2 3 一 医 32 7。5 6 一 一 9| 


上 


31 6- -0|32653212|3-- 台 | 


10 
20 
30 
40 
45 
50 
60 


70 


ev | 玉 一 (1) Po 

6532 1123-|2.385|6--0g58 
7"6 | 6"3 3 一 6.443|2--0| 
6.5|5.2 :2 一 |0312 57| 5- 一) :| 

| 一 | 下 本 风 
) | 
| 
序 为 ， 
J=9:I=1 
GOTO 50 


RESTORE :TI= 一 1:J=18 

READ A，B，C，A，B，C，A，B，C) 

IF C< > 一 1 THEN GOTO 40 
READ X，Y， 工 

IF X=0 THEN MUSIC (0，0，0) 
GOTO 110 

IJF XN=Z THEN MUSIC (X， Y，17) 


。， 89。 


80 Y=Y 一 1 


90 

100 
了 10 
120 
130 
140 
150 


160 


170 


180 


190 


*，90。 


MUSIC (X，Y，4) 


IF T= 一 2 THEN GOTO 30 

WAIT (CT# 30) 

IF T=l8 THEN MUSIC(0，0，0) : END 
Z = 久 

GOTO 50 

DATA 3，5，6，6，5，6，1，6，3， 
7，5，1，6，5，1 

DATA 3，6，3，1，6，3，6，5，20， 
3，5，6，3，6，6 

DATA 2，6，3，3，6，1，2，6，1， 
1，6，3，7，5，3 

DATA 6,5，17，0，0，3，6，4，4， 
3 

DATA 3，5，1，1，5，1，7，4，1，,6， 
4，9，0，0，3 

DATA 3，5，1，6，5，3，5，5，:1)， 
3，5，1，2，5，1 

DATA 1，5，1，2，5，1，3，5，9， 
3，5，1，5，5，1 

DATA 6，5，4，7，5，1，6，5，J] 
55 和 放 和 5 末 

DATA 2，5，1，1，5，1，1，5，3) 
2，5，1，3，8，6 

DATA 2，5，4，3，5，1，7，4，]) 


250 


260 


270 


280 


290 


300 


310 


320 
330 


340 


350 


370 


6， 4)， 
DATA 
3，5， 
DATA 
6，4， 
DATA 
3，5， 
DATA 
3，5， 
DATA 
5，5， 
DATA 
5，1， 
DATA 
6，4， 
DATA 
DATA 
3， 5， 
DATA 
6，5， 
DATA 
1，5)， 
DATA 
0，0， 
DATA 
和 


1， 
6， 
1， 
3， 
9， 
3， 


1 ， 
1y 


5， 
4)， 
2， 
5， 
0， 
5， 


4)》 
9， 
5y 

1y， 

0， 
1， 


3 
0， 
1 
1， 
3 
6， 
1 


3， 


1》 


3)， 


1， 


1， 


1y 


7，4，1， 


5， 5 浊 


380 


430 


440 


490 


500 


DATA 2， 
2，6，1)， 
DATA 5， 
6，4，4)， 
DATA 2， 
7，4，1， 
DATA 0， 
5，5，1)， 
DATA 2， 
3，5， 册 
DATA 5， 
6，5， 寺 
DATA 3， 
1，5，3)， 
DATA 3， 
7，5，1， 

DATA 5， 
DATA 0， 


6， 
7， 
5， 
3， 
5， 
6 ， 
0， 
3， 
5， 
3， 
5) 
5y) 
5， 
2)， 
5， 
6， 
9》 
0， 


1， 
5， 
1， 
5， 
1， 
4 
3 ， 
5， 
1， 
5， 
1， 
5， 
1 
5)， 
6， 
5， 
3 ， 
1， 


。 1 
1，6，5， 


DATA 1， 
6，5，1， 
DATA 3， 
4，5， 1， 
DATA 3， 
7，5，3， 


6 ， 
6 ， 
5， 


1 


3， 
《4 
6， 
1 
3， 
9 
3， 
1 
1， 
1 
6， 
工 
2 
1 
2， 


6 ， 
3， 


0，0，3， 


2，5，1，2，5，6 

520 DATA 0，0，1，3，5，1，1，5，1， 
2，5，1，3，5，4 

530 DATA 7，5，1，6，5，-2 


该 程序 解释 如 下 ， 

本 曲 较为 复杂 ， 没 有 用 混合 方式 按 降下 调 编写 ， 只 是 采 
用 了 通 普 的 MUSIC 指 令 。 

第 30、40 行 及 50 行 是 为 了 使 重复 时 加 快 空 读数 据 速 度 而 
特意 设置 的 。 第 80 行 使 音程 Y 降 一 级 ， 如 想 听 高 八 度 的 曲子 
可 取消 这 一 行 。 

这 个 程序 在 数据 中 采用 了 一 些 技巧 ， 其 中 最 后 一 行 的 
4- 22 是 重复 标志 。 变 量 1，J 是 数值 变换 标志 。 开 始 的 J 
值 为 9 ，I 值 为 1， 具 有 等 待 时 间作 用 。 重 复 后 的 I 值 为 一 1. 
做 为 跳出 空 读 的 标志 ， 而 J 值 为 18， 做 为 重复 后 音符 演奏 时 
间 参 数 及 停机 标志 。 

该 程序 并 不 是 一 个 理想 的 程序 ， 待 今后 学 习 循环 … 数组 
等 知识 后 ， 编 排 这 类 程序 会 更 加 方便 ， 同 时 结构 上 也 会 有 所 
改进 。 


$5 练习 题 
一 、 试 编 一 个 程序 ， 让 COMX--PC1 电 脑 演奏 一 首 自己 
喜爱 的 歌曲 。 


二 、 用 READ、DATA 语 句 编写 一 个 计算 平均 成 绩 的 
程序 。 
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第 八 章 ”循环 与 数组 


$ 1 循 ” 环 


在 第 六 章 中 介绍 了 条 件 语 句 和 转向 语句 ， 利 用 它们 可 以 
实现 指定 次 数 的 循环 。 一 般 来 说 ， 循 环 都 有 共同 点 ;一 是 有 
初 值 ; 二 是 有 步 长 :三 是 有 终 值 判 断 。 为 了 使 循环 的 结构 更 
加 清楚 ，BASIC 语言 里 专门 设置 了 循环 语 句 FOR 一 
NEXT。 

一 、 循 环 的 结构 

”循环 的 结构 由 循环 语句 和 循环 体 构成 ， 循 环 语句 由 说 明 
语句 和 终止 语 名 构成， 

1 。 循 环 说 明 语句 

FOR 语句 即 循环 说 明 语 句 ，FOR 语 句 的 格式 为 ， 

行 号 FOR 变量 = 表达 式 1 TO 表达 式 2 STEP 表达 
式 3 其 中 FOR，TO，STEP 都 是 BASIC 保 留 字 。 变 量 是 指 
简单 变量 ， 它 是 控制 循环 的 主要 因素 。 表 达 式 1 为 循环 变量 
的 初始 值 , 表 达 式 2 为 循环 变量 的 终止 值 , 表 达 式 3 为 循环 变 
量 的 步 长 值 。 当 此 值 为 1 时 ，STEP 保 留 字 是 可 以 省 略 的 。 
例如 

10 FOR I=1 TO lo0 STEP 1 
与 

10 FOR I= 1 TO 100 
是 等 价 的 。 
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循环 终止 语句 


NE 也 XT 语句 是 循环 终止 语句 。NEXT 语 句 的 格式 为 ， 
行 号 NEXT 变量 
这 里 的 变量 一 定 要 与 相应 的 FOR 语 铝 中 的 循环 变量 一 致 。 
尽管 NEEXT 语 句 是 循环 终止 语句 ， 但 并 不 是 执行 到 它 就 一 
定 停止 循环 ， 终 止 循环 是 有 条 件 的 。 
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循环 体 


FOR 语句 和 NEXT 语 名 之 间 的 全 部 可 执行 的 BASIC 语 
名 叫做 循环 体 。 循 环 体 本 身 不 包括 FOR 和 NEXT 语 句 。 

下 面 用 一 个 例子 来 具体 说 明 循 环 语句 的 作用 。 

例 8.1 打印 出 1 至 10 之 间 的 整数 及 它们 的 总 和 。 

程序 如 下 ; 


10 
20 
30 
40 
50 
60 
70 


95= 0 

FOR I= 工 TOIl10 
9=9+I 

PRINT 1 

NEXT II 

PRINT S 

END 


第 20 行 表示 循环 变量 初始 值 为 1 ， 终 止 值 为 10， 步 长 为 1。 


第 50 行 是 


NEXT 语 句 ， 表 示 循 坏 到 此 终止 。 第 30 行 、 第 40 行 


为 循环 体 。 

程序 开始 执行 10 行 ， 首 先 将 S 的 值 典 0 。 执 行 20 行 ， 将 
1 贼 给 循环 变量 1， 执 行 30、40 两 行 后 输出 了 I 的 值 ， 这 时 
值 为 1 。 执 行 50 行 ， 将 I 的 信 增 加 1 ,这 时 I 的 值 是 2 ,然后 与 
终 值 1 进行 比较 ， 看 是 否 大 于 终 值 。 如 果 不 大 则 继续 执行 特 
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永 ,如 果 大 于 终 值 则 执行 循环 以 外 的 语句 。I 值 为 2 不 大 于 
10， 所 以 继续 执行 30、40 行 。 至 50 行 I 的 值 又 增加 1 。 再 去 
比较 ， 依 此 类 推 ， 直 至 I 的 值 为 11 时 ， 才 能 去 执行 第 60 行 ， 
打印 出 1 至 10 之 间 的 整数 和 。 此 程序 执行 后 的 结果 为 ， 


1 2, 3 4 5 
6 7 8 9 10 
55 


二 、 循 环 的 用 法 
1 。 使 用 循 乓 时 ，FOR 语 句 和 NEXT 语句 必须 成 对 出 
现 ， 缺 一 不 可 。 
2 。 循 环 的 次 数 等 于 循环 变量 的 终 值 减 去 循环 变量 的 初 
值 除 以 步 长 ， 取 整 后 再 加 1 。 
3 。 用 FOR 语句 不 限制 初 值 、 终 值 、 以 及 步 长 的 正 、 
负 。 但 要 注意 当 步 长 为 负数 时 ， 循 环 变量 的 值 要 小 于 终 值 才 
能 完成 循环 。 凡 是 不 符合 循环 规定 的 程序 ,循环 只 进行 一 次 ， 
然后 就 会 发 生 错 误 。 〈 有 的 电脑 将 继续 执行 下 边 的 语句 ) 。 
三 、 循 环 嵌 套 
循环 嵌 套 也 叫 多 重 循环 。 即 在 循环 之 中 还 有 循环 。 从 整 
体 结构 看 ， 内 循环 又 是 外 循环 的 循环 体 了 。 
例 8.2 利用 双重 循环 打印 一 个 三 角形 。 
程序 如 下 ， 
10 INPUT 4N=2 N 
20 FOR I=1 TONN 
30 FOR J= 1 TOI 
40 PRINT 人 T“《 米 必 5 
50 NEXT j 
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60 _ PRINT 

70 NEXT 1 

80 END 
程序 中 的 N 决 定 三 角形 的 大 小 ， 其 中 40 行 为 内 御 环 的 循 环 
体 ，30 至 60 行 是 外 循环 的 循环 体 。 

在 使 用 多 重 循 环 时 ， 特 别 要 注意 以 下 几 点 ， 

1 。 内 外 循环 不 得 交叉 


比如 
FOR 
| / FOR YY 
| ANEXTY 
NEXT X 
是 正确 的 。 
而 
FOR X.… 
FOR Y… 
用 史 X 
NEXT Y 


2 。 多 重 洗 环 中 可 以 使 用 条 件 语句 
在 循环 中 使 用 条 件 转移 语句 是 允许 的 。 不 过 ， 在 多 重 循 
匡 由 各 用 条 件 转移 语句 一 定 要 注意 ， 不 能 从 外 循环 转 入 内 御 
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打 。 但 从 内 循环 转 到 外 循环 是 允许 的 。 例 如 下 面 的 程序 ， 
10 FOR I=1 TO 1 
20 FOR J=1 TO 1 
30 PRINT I，]j 
40 IF TI=3 THEN GO To 60 
50 NEXT 
60 NEXT 1 
70 END 
是 正确 的 。 而 程序 
10 FOR TI=1 10 10 
20 FOR J=1 TO 1o 
30 PRINT ITI，j 


40 NExT j 

50 IF I=7 THEN GOTO 30 
60 NEXT 工 

70 END 


于. 4 > 已 


是 错误 的 ， 它 的 第 50 行 可 能 使 程序 转移 到 内 循环 中 去 。 

上 面 的 程序 中 使 用 了 转 到 循环 之 外 的 条 件 语 句 。 实 际 
上 ，COMX 一 PC 1 电脑 专门 设置 了 EXIT 指令 用 来 代替 
GOTO 指 令 ， 从 而 清楚 地 表示 转 出 循环 。 例 如 ， 

10 FOR 1=1 TO 10 

20 FOR J=1 TO 1 

30 。 PRINT “xx 3 

40 IF J>3 THEN EXIT 60 

50 NEXT j 

60 PRINT 
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70 T=I+j 

80 PRINT T 

90 NEXT 1 

106 END 
第 40 行 表示 当 J 的 值 大 于 3 后 去 执行 第 60 行 。 

循环 在 程序 设计 中 用 处 很 多 ， 为 了 提高 效率 ， 在 编写 程 
序 时 要 注意 尽量 减少 循环 次 数 。 


$ 2 ”数组 和 字符 串 组 


一 、 数 组 

数组 是 由 一 组 具有 同名 的 下 标 变量 组 成 。 

1 。 下 标 变量 

下 标 变 量 是 由 简单 变量 加 上 可 以 改变 的 下 标 组 成 。 比 
如 ，A (3) ，B (6,5) 都 是 下 标 变量 。 下 标 变量 分 为 单 下 
标 变量 〈 例 如 A(5) ，B1(7 ) 等 ) 和 双 下 标 变量 〈 例 如 
C (7,2) ，D (12,7) 等 ) 。 

2 。 数 组 

由 同名 的 单 下 标 变 量 组 成 的 数组 叫 一 维 数组 。 由 同名 的 
双 下 标 变量 组 成 的 数组 叫 二 维 数组 。 一 维 数组 中 ， 每 个 元 素 
(下 标 变量 ) 只 有 一 个 参数 。 而 二 维 数 组 中 ， 每 个 元 素 都 有 
行 标 和 列 标 两 个 参数 。 从 数据 结构 的 观点 看 ， 参 数 〈 下 标 ) 
决定 了 元 素 在 数组 中 的 位 置 。 

3 。 数 组 说 明 

数组 元 素 的 个 数 由 数组 说 明 语 句 DIM 来 确定 ， 数 组 元 
素 个 数 的 说 明 一 定 要 准确 ， 少 了 不 够 用 ， 多 了 浪费 内 存 。 一 
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般 每 个 元 素 占 有 4 个 字 节 ， 而 数组 名 占用 5 个 字 节 。 比 如 用 ， 
DIM A (0，10) 
说 明 两 维 数组 A， 含 有 1 00 个 元 素 ， 一 其 占有 400 个 字 节 ， 再 
加 上 5 个 字 节 的 名 字 ， 共 占 405 个 字 节 。 又 如 
DIM B (30) 
说 明 一 维 数组 B， 包 含 30 个 元 素 ， 占 有 125 个 字 节 。 
DIM 语句 的 一 般 格 式 为 
行 号 DIM 数组 名 (表达 式 ) 
行 号 DIM 数组 名 (表达 起 工 ， 表 达 式 2 ) 
式 中 表达 式 的 值 多 许 有 多 大 呢 ? COMX 一 PC 1 电脑 允 许 一 
维 数组 的 元 素 个 数 最 多 为 255 个 。 对 二 维 数组 元 素 个 数 的 
限制 则 视 程序 占用 内 存 多 少 而 定 ， 也 就 是 说 如 有 果 你 所 编 的 程 
序 很 长 ， 那 么 你 在 这 个 程序 中 所 用 的 两 维 数 组 元 素 的 个 数 就 
要 相对 的 减少 ， 因 为 机 器 的 内 存 是 一 定 的 ! 如果 你 所 编 的 程 
序 较 短 ， 那 么 你 在 这 个 程序 中 所 用 的 两 维 数组 元 素 的 个 数 就 
可 以 相应 的 增加 。 
如 果 说 明 数 组 时 超出 规定 的 范围 ， 电 脑 会 给 出 溢出 错误 
信息 。 
4 。 数 组 类 型 
根据 数组 名 的 类 型 ， 数 组 可 分 为 浮 点 型 和 整 型 两 种 。 如 
果 变 量 A 至 Z 都 是 浮 点 型 ， 那 冬 相 应 的 数组 也 是 浮 点 型 。 例 
如 A 被 定义 为 整 型 变量 ， 那 么 A 数 组 也 是 整 型 数组 。 不 同 名 
称 、 不 同类 型 的 数组 可 以 放 在 同一 行内 说 明 。 例 如 
15 DIM A 《10， 10) ，B (30) ，C (25) 
5 。 说 明 语 句 的 省 略 
通常 ， 程 序 中 数组 语 的 元 素 少 于 10 个 则 可 以 省 略 说 明 语 
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句 。 在 电脑 中 ， 已 经 留 出 一 定 的 内 存 供 没有 说 昌 的 数组 存放 
数据 。 

6 。 清 除数 组 数据 区 

执行 CLD 命 令 或 对 程序 进行 编 Re 
会 被 清除 。 因 此 ， 当 不 需要 数据 空间 时 ， 可 以 用 CLD 命 
来 清除 数据 空间 。 

二 、 字 符 串 组 

COMX 一 PC1 电 脑 上 共有 处 理 字 符 串 组 的 能 力 。 字 符 串 
组 同 数 组 的 形式 基本 一 样 ， 只 是 需要 在 数组 名 后 如上“ 吕 ? 
符号 。 例 如 ，A8 (4) ，By9 (3 ,6) 等 都 是 字符 串 组 。 
下 

字符 串 组 不 需要 说 明 ， 只 须 将 字符 串 赋 给 字符 串 组 即 
可 。 如 果 字 符 串 组 的 下 标 变量 没有 实际 内 容 ， 是 不 能 用 的 。 
例如 ， 

10 A8 (10) = 《A? 

20 AY (7) 一 《4B2 

30 PRINT AR(I0)，AS (7) 


40 END 
执行 后 的 结果 为 
人 A B 


这 个 程序 中 只 有 A8& (10) 和 AV8 (7) 存在 ,而 A& (3) ， 
A 员 〈6 ) …… 是 不 存在 的 。 在 字符 串 组 数据 空间 中 也 没有 
二 央 窜 癌 sx 间 。 
CLD 和 编辑 命令 同样 能 清除 字符 串 组 数据 空间 。 
总 之 ， 字 符 串 组 同 数组 的 用 法 基本 一 样 。 内 是 要 注意 数 
组 需要 说 明 。 
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三 、 数 组 的 赋值 

使 用 数组 一 定 要 给 它们 赋值 。 赋 值 之 前 ， 往 往 需要 清 
清 零 一 般 采 用 循环 赋 零 值 的 方法 。 下 面 将 举例 说 明 。 

对 于 一 维 数组 常用 下 述 两 种 方法 清 零 ， 

I10 DIM A(30) ，B (30) 

20 FOR I=1 TO 30 


30 A(C) =0 
40 B(I) =0 
50 NEXT I 
60 END 

2 。 


10 INPUT  “N=2”N 

20 DIM AICN)，BCN) 

30 FOR I=1 7TO N 

40 A(I) =0 

50 B(I) =0 

60 NEXT 1JT， 

对 于 二 维 数组 可 用 下 面 的 方法 清 零 

10 DIM A(5，50) ，B (5，50) 
20 FOR I=1 TO 5 

30 FOR J=1 TO 50 


40 A (I，J)=0 
50 B (I，J)=10 
60 NEXT 了 
70 NEXT 1 
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80 END 

给 数组 赋值 多 采用 循环 读 值 的 方法 。 例 如 下 面 的 一 维 数 
钥 要 读 30 个 值 。 

10 DIM A (30) 

20 FOR I=1 TO 30 

30 READ A(D 

40 NEXT I 

100 DATA 5，6，8，，… 28 
人 
这 种 赋值 是 通过 循环 变量 I 的 变化 给 A 数 组 不 同 元 素 赋值 来 
实现 的 。 同 理 ， 二 维 数组 赋值 也 可 采用 这 种 方式 ， 只 不 过 需 
增加 一 重 循环 。 例 如 ， 

10 DIM C (10，25) 

20 FOR N=1 TO 10 

30 FOR M=1l TO 25 

40 “READ C CN，M) 

50 NEXT  M 

60 NEXT NI 

100 DATA 5，10，31，… 92 

2 
以 上 可 以 看 出 ， 无 论 是 清 零 还 是 屿 值 ， 一 维 数组 采用 单 循环 
法 ， 二 维 数组 采用 双重 循环 法 。 

当 需 要 将 大 量 数据 进行 排序 的 时 候 ， 采 用 数组 方法 非常 
方便 。 下 面 列举 两 个 排序 的 程序 ， 数 据 可 以 由 随机 数 给 
出 。 

程序 ! 
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10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 


DIM A (20) 

FOR I=1 TO 20 

A (I) =INT (10+RND 100) 

NEXT I 

FOR I=1 TO 19 
FOR J=I+1 TO 20 
IF A(T)>=A(I) THEN GOTO 90 
T=A(I) :A(I) =A(J) :A(J) = 工 
NEXT 

NEXT T 

END 


第 50 行 至 100 行 为 排序 部 分 。 顺 序 为 从 大 至 小 。 
程序 ? 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
I20 


INPUT 

DIM A(CN) 

FOR I=1 TO N 

A (LI) =INT (10+RND+100) 

PIRNT A(T) ， 

NEXT I 

FOR I=1 TO N=-1 
FOR J=I+1 TO N 
IF A()>=A(J) THEN GOTO 1I0 
T=A( 人 (1) :A( 人 1) =A(J) : A(J) =T 
NEXT 了 本 

PRINT A(T) 


130 NEXT 1! 
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140 END 
第 70 至 130 行 为 排序 部 分 。 第 50 行 、120 行 为 输出 结果 。 排 序 
的 方法 很 多 ， 这 里 就 不 再 列举 了 。 


$3 综合 例题 


例 8.5 缩 一 程序 ， 由 电脑 给 出 100 至 200 之 间 的 16 个 不 
同 的 随机 整数 。 将 这 些 数 中 的 奇数 按 从 大 到 小 的 听 序 排列 ， 
偶数 按 从 小 到 大 的 顺序 排列 ， 并 将 排序 结果 打印 ， 最 后 分 别 
打印 出 奇数 和 偶数 的 个 数 。 

本 题 是 一 道 综合 知识 的 考查 题 ， 不 仅 考 查 随 机 函数 的 概 
念 和 选取 16 个 不 同 随机 数 的 方法 ， 而 且 考 查 数组 的 清 零 、 赋 
值 及 排序 方法 ， 同 时 还 考查 偶数 的 选取 、 计 数 以 及 使 用 打印 
语句 的 灵活 性 。 下 面 列 出 一 个 程序 供 人 参考 。 

10 DIM A (16) ，B (16) 

50 X=0:Y=0 

60 FOR I=1 TO 16 

70 A (ID) =INT (100*RND+100) 

80 IF I=1 THEN GOTO 120 

90 FJR J=1l TO TI-1 

100 IF A(I) =A(J) THEN 了 XITIT 70 

110 NEXT 了 

120 PRINT A (LT)， 

130 NEXT II 

140 PRNT :PRINT 


“105。 


150 FOR I=1 TO 15 


160 FOR J=I+1 TO 16 

170 IF A(I) >A (JJ) THEN GOTO 190 
180 B=A(I) :A(I) =A(J) :A(J) = B 
190 NEXT 可 

200 NEXT [ 


210 FOR K=1 TO 16 
220 IF A(K) 2<< >INT(A(K)/2) THEN 
PRINT ACK):X=X+1l: GOTO 250 

230 Y=Y+ 1 

240 B (Y) =A (K) 

250 NEXT 开 

260 FOR ITI=Y TO 1 STEP -! 

270 PRINT B(I) 

280 NEXT 

290 PRINT 

300 PRINT “JI SHU: 2” X 

310 PRINT 4OU SHU: 2 Y 

320 END 
这 个 程序 60 至 130 行 给 A 数 组 赋值 。 其 中 内 循环 90 至 110 行 可 
保证 取 的 数 不 相等 。150 至 200 行 为 A 数 组 排序 过 程 。 210 至 
250 行 分 开 奇 偶数 ， 其 中 220 行 打印 出 奇数 并 计数 ，230 行 对 
偶数 计 个 数 。260 至 280 行 打印 出 偶数 。300 行 及 310 行 分 别 打 
印 出 奇偶 数 的 个 数 。 

例 8.4 学 生成 绩 分 析 

某 放 有 N 个 学 生 参 加 某 门 功课 考试 ， 
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要 求 统计 考试 分 数 100 分 的 有 多 少 人 ? 90 至 99 分 的 有 多 
少 人 ……60 至 69 分 的 有 多 少 人 ? 不 及 格 的 有 多 少 人 ? 

程序 

10 INPUT NI 

20 DIM AI(CN) ，S (10) 

30 FOR I=1 TON 

40 READ A (TD) 


50 NEXT 1 
60 FOR J=1 TO 10 
70 9 (J) = 0 
80 NEXT 了 


90 FOR I=1 TO N 

100 IF A (1T) <60 THEN S (5) =S9 (5)》 + 1I 
:GOTO 130 

110 R=INT (CA(GIT/10) 

120 9 (R) =9 (R) + 1 

130 NEXT TI 

140 PRINT “41002 ，S (10) 

150 FOR I=9 TO 6 STEP -1 


160 PRINT TI*108 -一 -2 TI+kl0+9，9(I) 
170 NEXT II 

180 PRINT “0 --- 59”，9 (5) 

190 END 


200 DATA 65，57，61，71，75，80，93，91 
210 DATA 82，51，32，97，100，100，92 


8 107。 


程序 中 90 至 130 行 为 统计 计数 部 分 。 利 用 下 标 值 为 参 考 量 ， 
这 种 方法 用 途 很 广 。 程 序 中 的 数据 不 能 少 于 N 个 。 

例 8.5 某 校对 M 个 学 生 进 行 一 次 测验 ， 共 测 验 五 道 
题 ， 每 题 有 三 个 选择 答案 。 规 定 每 个 人 对 每 题 只 能 选择 一 种 
答案 。 求 出 每 题 中 选择 每 种 答案 的 人 数 各 是 多 少 。 

10 DIM S (5，3) 

20 FOR I=1 TO 5 


30 FOR J=1 TO 3 
40 9 (I，J) =0 

50 NEXT 了 

60 NEXT I 


70 INPUT“M=?”M 

80 FOR N=1 TO Mk5 
90 READ Q，R 

100 S (Q，R) =9 (Q，R) + 了 
110 NEXT N 

120 FOR I=1 TO 5 

130 FOR J=1 TO 3 
140 PRINT I，J 9 ([I，J 


150 NEXT 了 
160 PRINT 
170 NEXT I 


180 DATA 1，2，2，1，3，2，5，1! 
190 DATA 


程序 中 变量 Q 为 题目 号 ，R 为 答案 号 。DATA 中 的 数据 要 一 
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对 一 对 地 给 ， 例 如 第 一 题 答 案 2 ， 就 给 出 1，2。 其 他 类 
推 ， 这 个 程序 就 是 利用 二 维 数组 的 下 标 来 完成 统计 工作 的 。 


总 数据 量 应 该 有 10M 个 。 
例 8.6 假如 某 班 有 45 名 学 生 ， 期 末 进 行 六 门 功课 的 考 
试 。 要 求 ， 


1 。 统 计 每 个 学 生 的 各 科 成 绩 、 总 分 、 平 均 分 、 并 连同 
学 生 姓 名 一 起 以 表格 形式 输出 〈 表 1) 。 

2 。 总 分 按 名 次 排列 并 连同 姓名 一 起 以 表格 形 式 输 出 
( 表 2 ) 。 

学 生 数 及 科目 数 分 别 用 N 及 Q 表 示 。Y 数 组 存放 学 号 ， 
A8 字 符 赃 组 存放 姓名 。N 数 组 存放 各 科 分 数 及 总 分 、 平 均 
分 。5 数 组 存放 排名 次 后 的 总 分 。 程 序 如 下 : 

10 _ INPUT N，Q 

20 DIM YICN)，NCN，Q+2)，S(CN) 

30 FOR I=1 TON 

40 READ YI()，AVY (TD) 


50 FOR J=1 TO Q 

60 READ N (II，J) 

70 NEXT 了 

80 NEXT 

90 了 PRINT 

100 FOR I=1 TO N 

110 S (I)》 =0 

120 FOR J=1l1 TO Q 

130 S (I) =S (I) +N (TI，J) 
140 NEXT 可 


。10 旨 。 


N (I，Q+1li) =93 (ID) 


N (TI，Q+2) =INT (SGD/VQ*10) 10 


160 NEXT 
FOR I=1 TO N=-1I 


FOR J=I+1 TO N 
IFS(I)>=S(J) THEN GOTO 210 
T=S(I) :SGD)=S(J) :S(J) =T 
NEXT 

NEXT 

PRINT“I NAME Q1Q2 Q3 Q4 Q5 Q6”; 

PRINT “SUM  AVER2 

FOR I1=1 TO N 

PRINT Y (Il1) 4 73 A8 (CI1)3 
FOR Jl=1 TO Q+2 
PRINT TAB(4*Jlt+108 N(I1,Jl)5 
NEXT 了 本 1! 

PRINT 

NEXT ITI1 

PRINT 4N7 4NAMEE2 49UJM2Y 

FOR II=1 TON 
FOR JI=1 TO N 
IF SG1D)<>NGlQ+L) THENGOTO 
PRINT Il，AyY (Jl) ，S (LI1) 
NEXT 

NEXT I 

DATA 5301，“LI MING2”，,65,71,82,90;,68， 


92 
390 DATA 5302，“WANG FENG”，80， 
90，100，98，92，96 
400 
1000 END 
这 个 程序 的 30 至 80 行 读 入 原始 数据 。100 至 160 行 求 总 分 和 平 
均 分 。170 至 220 行 进行 总 分 排序 。230 至 310 行 打印 表 1 ,315 
至 370 行 打印 表 2，: 从 380 行 起 输入 原始 数据 。 


$4 练习 题 


SR 对 给 定 的 数据 1，2，4，3，4，2，1，2)， 
3，2，1，1，3 求 出 其 中 有 几 个 17 几 个 2? 几 个 3? 
几 个 4? 并 求 出 它们 各 自 与 总 个 数 的 百分比 。 

二 、 结 合 一 个 班 的 有 具体 情况 编写 学 生成 绩 统计 分 析 程 
序 。 

三 、 由 电脑 给 出 20 个 不 同 的 300 至 400 之 间 的 随机 整数 。 
先 打印 出 这 些 数 。 然 后 按 最 大 的 数 ， 最 小 的 数 ， 次 最 大 数 ， 
次 最 小 数 …… 打 印 出 来 。 

四 、 打 印 一 杨辉 三 角形 


ellli， 


1 5 10 10 5 1I 
1 6 15 20 15 6 1 


五 、 编 号 一 个 程序 ， 将 一 已 知 数组 中 的 各 元 素 的 值 移 到 
前 一 个 元 素 中 ， 而 第 一 个 元 素 中 的 值 移 到 最 后 一 个 元 素 中。 


ii 


第 九 章 “ 子 程序 和 实时 控制 


$1 子 程 序 


在 解决 实际 问题 中 ， 往 往 需要 反复 做 只 是 其 中 其 些 参数 
不 同 的 同样 工作 。BASIC 的 子 程序 提供 了 这 种 方便 ， 就 是 
把 需要 重复 使 用 的 程序 段 编 成 一 个 子 程序 。 子 程序 有 两 类 ， 
一 类 是 相同 功能 的 程序 段 ! 另 一 类 是 各 种 不 同 功能 的 子 程 
序 。 为 了 使 整个 程序 结构 清晰 、 人 合理、 效率 高 、 易 懂 易 读 ， 
经 常 采用 建立 子 程序 的 方法 。 

子 程序 是 一 段 独立 的 程序 。 调 用 子 程序 或 转子 程序 ， 程 
序 执行 效果 是 相同 的 。 子 程序 是 相对 于 主 程序 而 言 的 ， 调 用 
子 程序 的 程序 段 称 为 主 程序 。 

一 、GOSUB 语句 和 RETURN 语 句 

1。GOSUB 语句 

GOSUB 语句 称 为 调用 子 程序 语句 或 转子 程序 语 句 。 
它 的 基本 格式 为 ， 

行 号 GOSUB 表达 式 
式 中 开 达 式 的 值 为 子 程序 开始 的 行 号 。 
例如 ， 

100 GOSUB 1000 
开 示 程序 执行 到 100 行 时 ， 调 用 起 始 行 号 为 1000 的 子 程序 。 
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或 者 说 是 转 去 执行 1000 行 开始 的 子 程序 。 
2。 RETURN 语 名 
RETURN 语 句 称 为 子 程序 结束 语句 或 返回 语句 。 它 的 
格式 为 : 
行 号 RETURN 
例如 ， 
1050 RETURN 
表示 子 程序 执行 到 1050 时 结束 ， 继 而 执行 主 程序 。 
例 9.1 编 一 程序 ， 求 三 个 整数 的 最 大 公约 数 。 
编写 此 程序 ， 关 键 是 找 二 个 整数 的 最 大 公约 数 。 我 们 可 
以 将 求 两 个 整数 的 最 大 公约 数 的 过 程 写成 子 程序 。 
该 子 程序 为 ， 
1000 Q=INT (XAY) 
1010 R=X-~Q 灶 Y 
1020 IF R=0 THEN GOTO 1060 
1030 X=Y 
1040 Y = 有 
1050 GOTO 1000 
1060 RETURN 
还 可 以 写成 ， 
1000 REM SUBROUTINE 
1010 Q=INT (XA TY) 
1020 R=X- Q 水 立 
1030 IF R=O THEN RETURN 
1040 X=Y:Y=R 
1050 GOTO 1010 
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这 段子 程序 将 RETURN 直 接 写 入 1030 行 的 条 件 语句 中 了 。 

我 们 现在 来 写 主 程序 。 

10 PRINT “THIS PROGRAM FINDS .THE 

GCD2 

20 PRINT 

30 INPUT“A = 人 A 

40 IF A<0 THEN END 

50 INPUT “B=”B 

60 INPUT “CC=”C 

70 X=A:Y=B 

80 GOSUB 1000 

90 X=C 

100 GOSUB 1000 

110 PRINT 

120 GOTO 30 
在 主 程序 中 40 行 为 条 件 停机 语句 。 当 A 的 值 小 于 零 时 ， 就 会 
终止 执行 。80、100 行 两 次 调用 子 程序 。 

二 、 应 用 子 程序 时 应 该 注意 的 问题 

1 。 主 程序 中 可 以 有 多 个 调用 子 程序 的 语句 ， 而 且 可 以 
调用 若干 个 不 同 的 子 程序 。 

2 。 子 程序 的 行 号 一 般 应 取得 较 大 , 且 放 于 主 程序 之 后 。 

3 。 除 GOSUB 语 名 外， 不 得 以 其 它 方式 进入 或 调用 子 

4 。 子 程序 中 至 少 要 有 一 个 RETURN 语 句 。 子 程序 中 
使 用 多 个 RETUR N 语 句 也 是 允许 的 ， 其 作用 都 是 结束 该 段 
子 程序 。 
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5 。 调 用 子 程序 结束 后 ， 继 续 执 行 调 用 子 程序 语句 下 面 
的 语句 。 

6 。 子 程序 允许 再 调用 子 程序 ， 即 子 程序 允许 典 套 。 氏 
赛 多 少 要 与 循环 语句 一 并 考虑 。 一 般 不 得 超过 8 层 。 


$ 2 ”时间 控制 的 子 程序 


COMX BASIC 提供 了 TIMOUT 和 TIME 语句 ,使 
程序 执行 经 过 某 段 时 间 后 调用 子 程序 。 
TIMOUT 和 TIME 语句 的 格式 为 

行 号 TIMOUT (X) 

行 号 TIME (Y) 
X 为 子 程序 入 口 的 开始 行 号 数 。Y 为 时 间 人 参数 ， 每 50 为 1 
秒 钟 。 

TIMOUT 与 TIME 必须 一 起 使 用 。 在 程序 中 首先 要 说 
明 TIMOUT， 当 执行 到 TIME 时 ， 开 始 计 时 ， 并 继续 执行 
下 边 的 语句 。 经 过 由 参数 确定 的 时 间 后 开始 调用 由 TIMOUT 
决定 的 子 程序 。 调 用 完成 后 ， 返 回 到 TIMOUT 之 后 的 语句 
继续 执行 。 直 至 下 一 次 遇 到 TIME 语句 时 再 次 计时 。 通 常 在 
这 样 的 子 程序 中 还 设计 另 一 个 TIME 语句 来 决定 返回 主 程 
序 的 时 间 。 这 样 就 构成 了 由 时 间 控 制 的 子 程序 。 

例 9.2 “电子 钟 程序 

在 电脑 屏幕 上 显示 出 一 个 数字 电子 钟 ， 它 应 包括 日 历 、 
时 、 分 、 秒 ， 只 要 求 时 、 分 、 秒 变化 即 可 。 程 序 如 下 ; 

100 REM DIGITAL CLOCK 
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110 
120 


130 
140 


330 


CPOS (0，0) :CLw 

CPOS (10，10) :PRINT “DIGITAL 
CLOCKY 

WAIT (300) 

CPOS9 (0，0) :CLS 

INPUT YEAR :2”Y1 

INPUT MONTH : ”MI1 

IF MI<1 THEN GOTO 160 

IF MIL>12 THEN GOTO 160 
INPUT “DATE :2”D1 

IF DI<1 THEN GOTO 190 

IF DI>3L THEN GOTO 190 
INPUT 《HOURS : ” 形 

IF H>23 THEN GOTO 220 
INPUT “MINUTES2”M 

IFE M>59 THEN GOTO 240 
INPUT “SECONDS :2”5S 

IF S>59 THEN GOTO 260 

FOR I=1l1 TO 12 

READ MY (IT) 

NEXTI 

DATA 4JAN2 ， xFEB”， <MAR”， 
《APR? 

DATA MAY27 ， 《JUN2， <JUL2 ， 
4AUG2 

DATA “SEP”， “OCT”， “NOV”， 


“117， 


《DEC2 
340 CPOS (0，0) : CLS 
350 CPOS (2，18) : PRINT YL 
360 CPOS (4，10) : PRINT MY (MI1) 
370 CPOS (4，15) : PRINT DI1 
380 CPOS (10，18) : PRINT“:? 
390 CPOS (10，21)》 :PRINT“: ?7 
400 TIMOUT (1000) 
410 GOSUB 2000 
420 GOSUB 3000 
430 GOSUB 4000 
440 TIME (47) 
450 下 = 开 EY 
460 IF 了 E<> 69 THEN GOTO 450 
470 CPOS (0，0) :CLS 
480 END 


1000 TIME (47) 

1010 S=S+1 

1020 IF S<60 THEN GOSUB 4000:RETURN 
1030 S= 0 

1040 GOSUB 4000 

1050 M=M+1I 

1060 IF M<60 THEN GOSUB 3000:RETURN 
1070 M= 0 

1080 GO9SUB 3000 
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1090 MUSIC (2，8，5) : WAIT (2) 
MUSIC (0，0，0) 

1100 H=H+1 

1110 IF 百 <24 THEN GOSUB 2000:RETURN 

1120 H=0 

1130 GOSUB 2000 

1140 RETURN 


2000 IF 了 <10 THEN CPOS (10，16)》 : PRINT 
4 73 了 :RETURN 

2100 CPOS (10，16) : PRINT 互 

2200 RETURN 


3000 IF M<l0 THEN CPOS (10,，19) 
PRINT“ ”; M:RETURN 

3100 CPOS (10，19) : PRINT  M 

3200 RETURN 


4000 IF S<10 THEN CPOS (10，22) : PRINT 
人 ”3 9:RETURN 

4100 CPOS (10，22) : PRINT S 

4200 RETURN 

程序 的 340 至 370 行 显示 年 、 月 、 日 。450 行 、460 行 为 等 
待 时 间 循 环 部 分 ， 一 旦 按 下 下 键 程序 就 会 终止 。 第 1090 行 为 
整 点 报时 音响 。 子 程序 1000 至 11 40 行 为 时 间 控 制 子 程序 。 子 
程序 2000，3000，4000 为 时 、 分 、 秒 显示 子 程序 。 当 显示 的 
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时 间 数 字 为 1 位 时 ， 在 前 面 输出 一 个 空格 ， 然 后 再 显 示 数 
字 。《 显 示 时 间 数 字 的 变量 为 H、M、S) 


$3 实时 控制 


在 编写 游戏 程序 时 少不了 进行 实时 控制 .COMX 一 PC1 
电脑 提供 了 KEY 这 个 指令 以 满足 实时 控制 的 要 求 。KEY 
的 基本 格式 为 

行 号 变量 = 及 EY 
KEY 是 从 键盘 上 直接 寻找 信息 的 指令 。 当 执行 KEY 指 
令 时 ， 电 脑 通过 键盘 将 字符 的 ASCII 码 值 赋 给 变量 。 如 果 
后 边 加 入 条 件 循 环 语句 ， 即 构成 实时 控制 。 例 如 

10 A=KEY 

20 IFA< > 66THEN GOTO 10 

30 PRINT “KEY B PRESSED?” 

40 END 
这 个 程序 在 第 10 行 检查 键盘 ， 如 果 此 时 不 接任 何 键 则 处 于 
等 待 状态 ， 如 果 按 除 B 键 以 外 的 其 他 键 (ESC、RT 除外 ) 
都 将 执行 第 10 行 ， 当 B 键 按 下 后 ， 就 执行 第 30 行 ， 打 印 出 ; 

KEV B PRESSED 
注意 ， 检 查 键 盘 只 认 一 个 键 ， 即 只 读 一 个 ASCII 码 。B 键 
的 ASCII 码 为 66。 全 部 字符 的 ASCII 码 列 于 书后 的 附录 中 。 

编写 游戏 程序 时 ， 可 以 采用 游戏 杆 的 四 个 方向 操作 来 控 
制 动 作 ， 也 可 以 利用 方向 键 来 控制 动作 。 这 四 个 键 的 ASCII 
码 分 别 为 上 (136) ， 右 (137) ， 下 (138) ， 左 (139) 。 

例 9,5 活动 图 形 程序 
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5 I=1 :，J=1 
10 和 X=KEY 
20 IF X=137 THEN GOTO 40 
30 GOTO 10 
40 CPOS (10，J) :PRINT “ 纪 
50 CPOS (10，I) :PRINT 4A2 
60 J=I : [TI=I+1I 
70 IF I=39 THEN END 
80 GOTO 10 
该 程序 的 功能 是 ， 接 下 右键 即 可 打印 出 一 个 人 A 字 ; 


再 按 一 下 


右键 ，A 字 向 右 移动 一 格 ，……， 这 样 连续 按键 就 形成 一 个 
活动 图 形 。 此 程序 的 关键 是 在 字符 A 字 位 置 上 打印 一 个 容 


格 。 
例 9.4 接 球 游戏 
程序 如 下 : 
10 CPOS (0，0) :CCLS 
20 Y=19:Z=0 
30 DERFINT XXX 
40 X=RND (39》 
50 B=1 
60 FOR K=1 TO 20 
70 FOR I=1T TO 20 
80 A=KEY 
90 IF A=1l30 THEN GOSUB 1000 
100 IF A=137 THEN GOSUB 1100 
110 IF X>39 THEN X=39:B=-B 
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120 IF X<0O THEN X=0:B=- 了 及 

130 CPOS (LI，X) :PRINT CHR& (149) 

140 CPOS (I，X) :， PRINT  “ 必 

150 IF I=20IF X=Y- 1 THEN GOSUB 2000 

160 IF I=20JFX=YTHEN GOSUB 2000 

170 IF TI=20IFEX=Y+1l THEN GOSUB 2000 

180 X=X+B 

190 NEXT [ 

200 B= -B 

210 NEXT 开 

220 上 END 

1000Y=Y- 1 

1010 IFY= 0 THEN Y=38: CPOS (20，0) 
PRINGT 1 2 

1020 CPOS (20，Y) : PRIT CHRY (32， 
148，154，32) 

1030 RETURN 


1100Y=Y+ 1 
1110 IFY=37 THEN Y= 0 :CPOS (20，37) 
PRINTT 《 尹 


1120 CPOS (20，Y) : PRINT CHRY8 (32， 
148，154，32) 

1130 RETURN 

2000 Z=Z+1 

2010 CPOS (0，38) :PRINT 7Z 

2020 TONE (52，4，5) 
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2030 TONE (0，0，0) 

2040 RETURN 
该 程序 在 屏幕 的 第 20 行 形成 一 个 | | 形 的 “ 手 ” 当 球 从 
屏幕 上 方 投 来 时 ， 操 纵 左 、 右 键 可 以 使 “ 手 ” 左右 移动 接 
球 。 接 住 一 次 记 一 分 ， 积 分 在 屏幕 的 右上 角 显 示 出 来 。 

程序 60 行 至 210 行 构成 整个 游戏 程序 的 核心 。 其 中 内 循 
环 为 球 从 屏幕 顶 向 下 移动 的 过 程 。CHR 8 为 字符 串 函 数 ,第 
130 行 是 印 出 ASCII 码 为 149 的 图 形 〈 这 里 是 一 个 球形 ) 。 
ASCII 码 为 148，154 时 构成 | | 形 。ASCII 但 为 32 是 
一 个 空格 。 子 程序 1000 可 使 “ 手 ” 向 左 移动 ， 子 程序 1100 可 
使 “ 手 ” 向 右 移动 。 子 程序 2000 的 作用 是 打印 分 数 并 发 出 声 


| 
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$4 练习 题 


一 、 编 写 一 个 活动 图 形 的 游戏 程序 。 设 计 玫 个 点 ， 随 机 
从 某 处 弹出 一 个 球 ， 球 碰 到 点 即 计 分 ， 各 点 的 分 数 可 以 不 
同 。 游 戏 进 行 到 一 定时 间 后 停止 ， 显 示 总 分 。 

二 、 编 写 一 个 成 绩 分 析 程序 。 已 知 一 个 班 有 50 名 学 生 ， 
每 人 参加 6 门 考试 。 利 用 子 程序 方法 求 出 每 人 的 总 分 、 平 均 
分 ， 并 排出 各 科 成 绩 的 名 次 及 总 分 名 次 。 分 数 由 DATA 语 名 
提供 。 
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十 章 “字符 串 函数 及 与 
机 器 码 有 关 的 语句 


$ 1 字符 串 函 数 


在 应 用 字符 串 时 需要 一 些 尘 有 的 函数 。 一 般 的 电脑 大 都 
具有 字符 串 函 数 .COMX 一 PC1 电 脑 设 置 了 ASC、CHRy9、 
FVAL、LEN 和 MIDY 函数 。 

一 、ASC 函 数 

在 电脑 内 存 中 ， 字 符 都 是 以 一 定 的 数码 被 储存 的 。 最 常 
用 的 数码 是 美国 信息 交换 标准 代码 ， 即 ASCII 码 。ASC 函 
数 可 给 出 字符 的 ASCII 码 ，ASCII 函 数 的 格式 为 ， 

ASC (字符 串 ) 

其 功能 是 求 出 字符 串 第 一 个 字符 的 ASCII 码 ， 以 十 进 制 形 
式 输出 。 字 符 串 可 以 赋 给 串 变 量 。 例 如 ， 

10 AY8= “ARITHMETIC2 

20 B=ASC (A8) 

30 PRINT B 

40 END 
程序 执行 后 的 结果 为 ， 

65 
字符 A 的 ASCII 码 是 65。 注 意 ASC 函 数 给 出 的 值 为 浮 点 型 。 

二 、LEN 函数 

LEN 函数 用 来 计算 字符 串 字 符 的 个 数 。 它 的 一 般 格 式 
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为 ， 
LEN (字符 溃 》 
字符 串 可 以 是 串 变 量 。 例 如 : 
10 A8= 《BEIJINGY 
20 PRINT LEN (Ag&) 
30 END 
结果 为 ， 
即 BEIJING 这 个 字符 串 有 7 个 字符 。 
三 、FVAL 函数 
FVAL 函数 可 将 字符 串 表 达 式 改变 成 算术 表达 式 。 
FEVAL 的 格式 为 ; 
FVAL (字符 串 表 达 式 ) 
FVAL 函数 最 多 只 能 算出 48 个 字符 组 成 的 表达 式 的 值 。 例 
如 ， 
10 AS= 人 纪 0+162 
20 PRINT FVAL  (A8&) 
30 PRINT FVAL (A++ “22 ) 
40 PRINT FVAL (4SQR (4) 2”) 
50 END 


执行 后 的 结果 为 
26 
18 
2 


第 20 行 是 计算 出 10+16 的 值 。 第 30 行 是 计算 出 10+16~ 2 的 
值 。 字 符 串 用 “+ ”号 联接 相当 于 串联 起 来 。 第 40 行 算出 的 
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是 4 的 平方 根 。 
四 、CHR8$ 函数 
CHR8& 函数 是 一 种 通用 的 输出 字符 函数 。 它 可 以 通过 
字符 〈 或 图 形 ) 的 ASCII 码 输出 该 字符 〈 或 图 形 ) 。 一 般 
用 于 PRINT 语句 中 ， 有 时 也 用 在 赋值 语句 中 。CHR8 的 
格式 为 : 
CHR8$ (表达 式 ， 表 达 式 ， ) 
表达 式 所 决定 的 值 是 字符 相应 的 ASCII 码 (十进制 ) 。 例 
如 ， 
PRINT CHR8& (65) 
输出 为 A， 因 为 A 的 ASCII 码 的 十 进 制 值 为 66。 又 如; 
PRINT CHR& (67) 
结果 输出 为 C。 如 果 打 
PRINT CHR (LII，112，1137 
屏幕 上 会 显示 出 一 架 小 飞机 。 而 打 
PRINT CHR (11，112，112，113) 
则 会 显示 一 架 长 机 吴 的 飞机 。 
在 附录 中 可 以 查 到 各 种 字符 的 ASCII 码 值 。 
五 、MID8 函数 
MID8& 函数 的 作用 是 从 给 定 的 字符 串 中 选取 某 一 部 分 
组 成 子 字符 串 。MID 员 函数 的 格式 为 ， 
MID4% (字符 串 变 量 ， 表 达 式 1 ， 表 达 式 2) 
其 中 ， 字符 串 变 量 是 给 定 的 字符 串 的 名 字 ! 
表达 式 1 决定 子 字符 串 开 始 的 字符 位 置 ; 表达 式 2 决定 子 字 
符 串 字符 的 个 数 ， 如 果 没 有 表达 式 2 ， 就 取 至 结尾 例如， 
10 Ag = GOODY? 
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20 BY=NID8 (CAY，3) 

30 C 呈 =MIDY (B8， 2 ) 

40 PRINT BY+C8 

50 END 
运行 后 的 结果 为 ， 

ODD 
又 如 ， 

10 A8=“EXPERIMENT2 

20 PRINT PID8 (Ag，7，3) 

30 END 
执行 后 的 结果 为 : 

MEN 

在 某 些 BASIC 版 本 中 有 LEFT& 和 RIGHT 史 函 数 。 
这 两 个 函数 的 功能 都 能 借助 MID8 函数 来 实现 。 

MID8 (A8，1，N) 相当 于 LEFT8 (和 A 史 ，N) 

MID8 (AY， (LEN (AY8) -N+1)，LEN 
(A8) ) 则 相当 于 RIGHT9 (A&，N) 。 

例 10.1 数 进 制 转换 

10 DERFINT 2Z: CPOS (0，0) :，CLS 

20 DIM 了 P (255) 

30 PRINT “2 (B) -10 (D) :去 1>>? 

40 PRINT “10 (D) - 2 (B) : <2 之? 

50 PRINT “16 (H) -10 (D) :， <<3>” 

60 PRINT “10 (D) -16 (H) ， 反 4>” 

70 PRINT“END <<5>” 

80 INPUT 《SELECT 1，2，3，4，52X 
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90 IFX<1 THEN GOTO 80 

95 IFX<5 THEN GOTO 80 

99 GOTO 100 米 XX 

100 INPUT“2 (B) NUMBER2 Ag 

110L=LEN (Ay) 

120 FOR I= 1 TO L 

130 C8 吕 =MID8 (A8，I) 

140 P (I) =FVAL (CV8) 

150 IF P (I) > 1 THEN CPOS(0，0):， CLS 
:， GOTO 30 

160 NEXT TI 

170 N= 2 

180 GOSUB 1000 

190 CPO9 (0，0) ，CLS，GOTO 30 

200 INPUT “40 (D) NUMBER2 A8& 

210 A=FVAL (AVY) 

220 N= 2 

230 GOSUB 2000 

240 GOSUB 3000 

250 CPOS (0，0) ， CLS 

260 GOTO 30 

300 INPUT 416 (NUMBER A8 

310 GOSUB 4000 

320 N=16 

330 GOSUB 1000 

340 CPOS (0，0) ，CLS 
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350 GOTO 30 

400 INPUT 410 (D) NUMBER2 Ay》 
410 A=FVAL (Ag ) 

420 N=16 

430 GOSUB 2000 

440 GOSUB 3000 

450 CPOS (0，0) :， CL9 

460 GOTO 30 

500 END 

1000S=0:Q=1 

1010 FOR I=1 TOL 

1020 S=S+P(GL-I+ IT 汪 Q 
1030 Q =N 关 

1040 NEXT I 

1050 PRINT 5 

1060 RETURN 

2000 TI= 1 

2010 Z=INT (AN) 

2020 IF Z<1 THEN P (ID) =A:， RETURN 
2030 P (I) =A-Z#N 

2040 A=2Z 

2050 I=I+ 工 

2060 GOTO 20!10 

3000 FOR KK=1TO 1 95TEP -1 工 
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3010 IF P(I)<10 THEN PRINT P(TD);，GOTO 
3040 

3020 Y=55+P(I) 

3030 PRINT CHR8 (Y) 

3040 NEXT 

3050 PRINT 

3060 RETURN 

4000 FOR I= 1 TOL 

4010 C8 = MID8 (A8，T) 

4020 IF ASC (C8 ) <58 THEN 

P (I) =FVAL (C8) ，GOTO 4040 

4030 P (I) =ASC (C8) -55 

4040 NEXT 

4050 RETURN 

这 个 程序 是 利用 字符 串 函 数 的 功能 进行 数 制 间 的 变换 。 
子 程序 1000 行 至 1060 行 为 N 进 制 转 为 十 进 制 。 子 程序 2000 行 
至 2060 行 为 十 进 制 转 为 N 进 制 。 子 程序 3000 行 至 3060 行 为 输 
出 N (CN 关 10) 进 制 数 。 子 程序 4000 行 至 4050 行 为 十 六 进 制 
数 分 离 各 位 。 整 个 程序 基本 是 通过 字符 串 函 数 来 实现 的 ， 拟 
行 起 来 速度 不 快 。 但 可 以 变换 的 数值 范围 很 大 ， 而 且 精 确 。 
编写 此 类 程序 的 方法 很 多 ， 这 里 就 不 一 一 列举 了 。 


$ 2 与 机 器 码 有 关 的 语句 


在 COMX BASIC 中 ， 可 利用 一 些 指 令 、 语 句 、 函 数 征 
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接 与 电脑 内 部 发 生 关系 。 其 中 包括 EOP，EOD，MEM， 
PEEK，POKE，CALL，USR 和 SHAPE 等 。 

一 、 匡 OP 和 了 OD 指 令 

程序 在 电脑 内 存 中 所 占有 的 区 域 叫 程序 区 。 数 据 占 用 的 
内 存 区 域 叫 数据 区 。 

刁 OP 指令 可 以 提供 程序 区 中 程序 空间 结尾 处 的 十 六 进 制 
地 址 。 在 程序 输入 时 ， 利 用 下 OP 指令 可 以 随时 了 解 程序 在 内 
存 中 已 经 占用 了 多 少 单元 。 

上 OD 指 令 可 提供 数据 区 中 数据 所 占 空间 结尾 处 的 十 六 
进 制 地 址 。 在 存 取 数 据 时 ， 使 用 该 指令 可 以 帮助 你 了 解数 据 
量 的 大 小 。 例 如 输入 : 

EOP: 了 EOD 
屏幕 上 会 显示 出 

有 4411 

有 411A 
这 表示 程序 结尾 在 4411 〈 十 六 进 制 数 ) ， 数 据 结 尾 在 411A 
(十 六 进 制 数 ) 。 注 意 ，EOD 一 定 要 在 DIM 语句 之 后 使 用 
才 有 效 。 

二 、MEM 函数 

MEM 函数 用 来 检查 电脑 内 存 中 还 剩 下 多 少 存储 单 元 ， 
以 十 进 制 数 给 出 。 在 程序 输入 完成 后 ， 检 查 内 存 占 用 情况 ， 
可 打 

PRINT MEM 
这 样 就 可 确定 此 时 还 剩 下 多 少 存储 单元 。 在 设计 程序 时 ， 要 
适当 留 出 一 定量 的 存储 单元 。 

三 、PEEK 函 数 
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PEEK 函数 可 列 出 确定 地 址 的 存储 单元 中 的 内 容 ， 它 
的 值 为 十 进 制 数 。 例 如 ， 

10 A=PEEK (LV842) 

20 IFA=8 THEN PRINT“NTSC MACHINE” 

30 IFA=9 THEN 下 RINT“sPAL MACHINE ” 

40 END 
程序 执行 后 ， 首 先 将 16842 地 址 内 存 中 的 内 容 以 十 进 制 数 赋 
给 变量 A。 如 果 A 的 值 是 8 则 打印 “NTSC MACHINE”， 
说 明 电 脑 以 NTSC 制 输出 如果 A 的 值 为 9 则 给 出“PAL 
MACHINE2”， 说 明 电 脑 以 PAL 制 输出 。 

四 、DEFUS 语句 

DEEFUS 语句 用 来 确定 用 户 区 起 始 地 毙 位置 。 它 通常 
的 格式 为 ， 

DEFUS 表达 式 
表达 式 的 值 为 用 户 程 序 开始 的 地 址 。 不 使 用 该 语句 时 ， 用 户 
程序 将 以 4400 〈 十 六 进 制 ) 开始 。 芳 使 用 DEFUS 语句 ， 
其 表达 式 值 应 大 于 4400。 在 4400 至 确定 起 始 地 址 之 间 可 以 写 
入 机 器 语言 子 程序 。 

起 始 地 址 位 置 都 是 按 整 页 处 理 的 。 每 256( 十 进 制 ) 个 存 
储 单元 为 一 页 。 例 如 : 

DEFUS 时 4450 
程序 开始 地 址 实际 为 44FF (十 六 进 制 ) 。 

如 果 确 定 起 始 地 址 小 于 4400〈 十 六 进 制 ) ， 会 产生 错 
误 。 因 为 此 时 进入 了 系统 区 ， 电 脑 不 会 接受 。 值 得 注意 的 
是 ， 一 且 使 用 了 DEFEUS 语 句 ， 程 序 的 首 地 址 就 确定 了 。 如 
要 改变 首 地 址 需要 再 使 用 DEFUS 语句 。 
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五 、POKE 语 句 

POK 瑟 语句 是 BASIC 语言 中 一 个 特有 的 语句 。 它 的 功 
能 是 在 BASIC 控 制 下 ， 直 接 利 用 机 器 语言 与 电脑 发 生 联系 。 
POKE 语句 的 格式 为 ， 

行 号 POKE (表达 式 1， 表 达 式 2) 
POKE 的 功能 是 将 表达 式 2 确定 的 值 写 到 表达 式 1 确定 的 地 
址 中 去 。 即 ， 

表达 式 1 “表示 地 址 码 

表达 式 2 ”表示 机 器 码 
例如 ， 

POKE ( 目 4400，255) 

是 将 255 这 个 数 写 入 到 4400 (十 六 制 ) 地 址 中 去 。 这 个 语句 
相当 

POKE ( 量 4400 # FF) 

不 要 随便 使 用 POKE 语句 。 需 用 时 也 要 当心 。 用 得 不 好 会 
破坏 程序 的 正常 执行 。 

六 、CALL 语句 和 USR 函数 

CALL 语 句 是 调用 机 器 语言 子 程序 的 指令 。C ALTE 的 
格式 为 : 

行 号 “CALL (表达 式 ) 

式 中 表达 式 的 值 为 机 器 语言 子 程序 开始 的 地 址 。 一 般 采 用 十 
六 进 制 数 。 例 如 : 

CALL ( 目 4400) 
表示 调用 以 4400〈 十 六 进 制 )》 地 址 开始 的 机 器 语言 子 程序 。 

USR 是 一 个 函数 ， 可 以 做 为 表达 式 的 一 部 分 。 一 般 是 
在 机 器 语言 子 程序 中 调用 这 个 函数 。 
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关于 机 器 语言 子 程序 的 编写 可 见 书后 的 附录 。 

七 、 定 义 字符 函数 

在 电脑 中 的 ROM 中 存 有 一 些 固定 的 字符 和 图 形 ， 通 过 
CHR8 函数 可 以 输出 这 些 字符 、 图 形 。 芳 想 改变 这 些 字 符 
的 形状 ， 可 以 使 用 定义 字符 图 形 SHAPE。 这 样 就 可 以 使 电 
脑 屏幕 输出 的 图 形 灵 活 机 动 ， 丰 富 多 采 。S3HAPE 函数 的 格 
式 为 ， 

行 号 SHAPE (X，“Y2”) 
式 中 X 为 字符 的 ASCII 码 ，Y 为 十 八 位 十 六 位 进 制 数 。 

屏幕 上 显示 的 字符 由 6 x 9 个 点 组 成 ， 每 个 字符 占 内 存 
的 9 个 字 节 。 每 个 字 节 的 前 两 位 用 来 定义 字符 颜色 ， 其 后 六 
位 定义 显示 点 。 凡 需 显示 的 点 用 1 表示 ， 不 显示 的 点 用 0 表 
示 。 每 个 字 节 为 二 位 十 六 进 制 数 ， 9 个 字 节 共 十 八 位 十 六 进 
制 数 。 前 二 位 〈 左 二 位 ) 定义 的 颜色 见 表 10.1 


表 10.1 字符 颜色 定义 表 
左 二 位 屏 荐 输出 人 色 键盘 输入 色 : 
0 0 黑色 红 色 
0 1 蓝 色 粉红 色 
1 0 | 绿 色 黄色 
1 下 青 色 白色 


假如 要 将 A 键 定义 成 “中 ” 字 ， 可 诈 如 下 指令 ; 
SHAPE 《65 “418487E6A7E484848002”) 65 为 人 键 
的 ASCII 码 ” 后 下 的 十 六 进 制 数 定义 了 “中 ” 字 ， 见 图 
10.1。 现 在 只 要 按 A 键 ， 屏 幕 上 就 会 显示 出 “中 ” 字 。 
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用 于 指定 颜 
色 的 位 


图 10.1 定义 “中 ” 字 


利用 定义 字符 函数 可 以 构成 汉字 库 。 通 常 6 x 9 个 点 定 
义 的 汉字 不 太 好 看 ， 可 以 用 四 个 字符 定义 一 个 汉字 。 例 如 ， 
用 四 个 字符 定义 一 个 “ 电 ” 字 。 程 序 如 下 ， 

10 SHAPE (156， “0081819F9191919F912) 

20 SHAPE (157，“000000BC848484BC842 ) 

30 SHAPE (158， “91919F8181818100002 ) 

40 SHAPE (159， “8484BC008181BF00002 ) 

50 CPOS (10，12) ，PRINT CHR&(156，157) 

60 CPOS (11，12) ，PRINT CHR8(158，159) 

70 END 
程序 执行 后 即 可 在 屏幕 上 显示 一 个 “ 电 ” 字 。 
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除了 定义 字符 外 ， 还 可 以 定义 图 形 。 例 如 要 想 画 一 个 蔷 
果 可 借助 如 下 语句 。 

SHAPE (153，“8F8D8C5C7E7E5C002) 
打 

PRINT CHR8 (153) 
就 可 以 在 屏幕 上 看 到 一 个 苹果 图 形 。 再 如 

SHAPE (119， “84848CBF9E9C94A4002) 
按 SHIFT 一 食 键 就 会 看 到 一 个 星星 图 形 。 

COMX 一 PCI 电 脑 全 屏幕 共有 240 x216 个 点 。 要 想 输 
出 一 个 理想 的 图 形 ， 首 先 要 考虑 总 体 结构 应 由 哪些 单 元 构 
成 ， 再 根据 需要 定义 若干 字符 、 图 形 ， 最 后 进行 整体 拼凑 。 
此 外 ， 当 定义 大 量 字 符 图 形 时 ， 可 以 用 数据 语句 DATA 建 
立 数据 区 ， 采 用 循环 方法 画 出 整 幅 图 形 。 

在 定义 字符 、 图 形 后 ， 要 想 饮 复 机 内 定义 字符 只 需 打 

COLOR (12) 
即 可 完全 复原 。 若 只 想 将 部 分 定义 的 字符 恢复 为 原 机 内 字 
符 ， 必 须 再 行 定义 原 字 符 。 本 书 附录 中 介绍 了 若干 机 内 字符 
的 定义 码 。 


$3 练习 题 


一 、 用 四 个 字符 定义 一 个 汉字 ， 一 共 定 义 十 个 汉字 。 
二 、 画 一 个 充满 全 屏幕 的 几何 图 形 。 


"136。 


附 录 人 
COMX 一 PC 1 电脑 外 存储 设备 的 使 用 


电脑 一 旦 断 电 ， 其 中 的 所 有 程序 都 会 被 清除 掉 。 利 用 外 
存储 设备 可 以 使 所 有 有 有用 的 信息 记录 在 磁带 上 。 下 面 介绍 存 
取信 息 的 方法 和 需要 注意 的 有 关 事 项 。 


$ 1 将 程序 存 到 磁带 上 


一 般 傅 况 下 ， 录 音 机 村 先 接 好 ， 以 免 临时 接 入 时 由 于 电 
源 电 压 的 影响 破坏 程序 。 

在 一 个 BASIC 程序 〈 也 可 以 是 不 完整 的 程序 ) 调试 完 
成 以 后 ， 按 下 列 步 骤 操 作 。 

1 。 将 录音 磁带 卡 入 录音 机 内 。 

2 。 记 下 录音 机 计数 器 的 数字 。 

3 。 在 电脑 键盘 上 打 PSAVE。 

4 。 置 录音 机 于 录音 的 位 置 。 

5 。 按 CR 键 。 此 时 光标 消失 ， 可 听 到 高 频 叫 声 ， 这 是 
程序 头 ， 接 着 出 现 噪音 。 

6 。 待 程序 录 完 后 ， 屏 幕 上 重新 出 现 

READY 

3 
的 信息 时 ， 按 下 停止 键 使 录音 停止 。 记 录 下 计数 器 的 数字 。 

7 ， 建 立 程序 记录 。 在 纸 上 记 下 程序 名 ， 首 数字 及 尾数 
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字 、 日 期 等 。 

至 此 ， 存 程序 的 全 部 工作 已 完成 ， 这 时 程序 仍然 在 电脑 
中 ， 打 LIST 即 可 显示 。 

如 果 将 电脑 的 电源 关闭 再 打开 ， 然 后 打 入 LIST， 则 无 
程序 显示 。 不 过 不 要 紧 ， 程 序 已 双 和 存在 了 带 上 了 。 

。 刘 苯 村 PSAVE 之 后 录音 机 发 生 任何 故障 都 不 

因为 : 响 电 脑 存 程序 的 工 
作 ， 待 程序 “ 存 ” 完 后 ， 屏 幕 上 仍然 会 显示 上 1 如 下 信息 ; 

READY 

2 多 
此 时 程序 并 没有 存 入 磁带 ， 排 除 故 障 后 可 以 再 重新 进行 存 程 
序 的 工作 。 

2 。 在 存 程 序 过 程 中 ， 声 音 也 是 有 一 定 规律 的 。 尖 叫 声 
是 程序 头 。 噪 音 表示 转送 的 页 〈 每 页 为 256 字 节 ) ， 每 页 之 
风采 全 人 这 叫 页 头 。 最 后 结束 的 标志 是 尖 叫 声 之 后 接 

音 。 如 果 熟 悉 这 些 声音 的 变化 ， 就 可 以 知道 程序 大 概 送 存 
到 什么 地 方 了 。 

3 。 不 是 所 有 的 录音 机 都 能 听 到 相应 的 声音 的 ， 如 果 所 
用 的 录音 机 听 不 到 这 些 声 音 也 不 要 担心 ， 只 要 观察 屏幕 就 可 
以 了 。 


$ 2 将 磁带 中 的 程序 调 回电 脑 中 


将 磁带 上 记录 的 程序 调 回 到 电脑 中 是 需要 细心 操作 的 。 
这 除了 能 调 回 你 录 存 的 程序 外 ， 还 可 能 直接 调 取 别 人 编制 的 
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程序 ， 特 别 是 一 些 游戏 程序 。 因 为 较 复 杂 的 程序 一 般 都 要 经 
过 这 项 操作 才能 提供 给 用 户 使 用 。 
调 问 程序 给 电脑 按 下 列 步 又 操作 。 
1 。 装 好 录 有 程序 的 磁带 并 找到 程序 开始 的 位 置 。 可 直 
ee 
。 将 录音 机 的 音量 调 大 一 些 ， 音 调调 高 一 点 。 
0 
再 需要 ， 因 为 一 旦 取 程 序 工作 开始 ， 电 脑 中 原 有 的 信息 均 会 
被 清除 。 
4 。 在 键盘 上 打 PLOAD， 然 后 按 录 音 机 上 的 PLAY 
钮 ， 当 听 到 尖 叫 声 后 ， 再 按 CR 键 。 
5 。 如 果 没 有 出 现 什么 故障 ， 待 调 程序 工作 完成 后 ， 屏 
幕 上 会 出 现 。 
READY 
: 多 
信息 。 关 兵 有 录音机。 〈 不 忙于 关 有 录音 机 电源 ， 因 为 这 样 可 能 
会 破坏 程序 。) 
此 时 ， 程 序 已 调 回 电脑 内 存 中 了 。 可 以 打 LIST 检查 一 
下 。 


注意 : 
1 。 调 回程 序 的 过 程 中 可 能 会 出 现 
ERR 57 


的 信息 ， 这 说 明 调 程序 的 工作 失败 ， 需 要 重新 进行 。 也 可 能 
会 出 现 
人 人 人 
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误 。 如 果 出 现 三 个 以 上 这 种 错误 ， 调 取 程 序 工作 必须 重新 进 
行 。 

2 .一旦 在 调 取 程序 的 过 程 中 遇 到 各 种 错误 信息 (上述 
两 种 为 典型 错误 信息 》， 在 重新 工作 时 必须 做 如 下 处 理 ， 

(1 ) 仔细 检查 输出 、 输 入 接口 、 插 头 及 连 线 。 

(2 ) 仔细 调节 录音 机 的 音量 和 音调 ， 以 达到 最 佳 效 
果 。 

《3 ) 如 果 录 音 机 确 有 问题 就 调换 另 一 台 。 


$》3 有 关 数 据 存 取 的 命令 
COMX 一 PC 1 电脑 提供 了 专门 用 来 存 取 数据 的 指令 。 


它们 是 

DSAVE  〈 存 数据 ) 

DLOAD  〈 取 数据 ) 
存 数据 就 是 将 内 存 中 数据 区 的 内 容 存 到 磁带 上 。 取 数据 就 是 
将 先前 由 DSAVE 命令 存 入 磁带 上 的 数据 调 回 到 电脑 中 。 取 
数据 工作 执行 后 会 将 数据 放置 在 程序 空间 后 面 并 冲 掉 原 有 的 
数据 。 

DSAVE 的 使 用 与 PSAVE 的 使 用 相同 DLOAD 的 使 
用 与 PLOAD 的 使 用 也 相同 。 操 作 步 又 可 参照 前 面 所 介绍 的 

数据 存 取 多 用 于 程序 中 ， 特 别 是 建立 数据 文件 时 更 需要 
这 种 方法 。 

注意 ， 

1 。 在 内 存 中 同时 包含 程序 和 数据 时 ， 对 程序 的 任何 编 

e。 140。 


辑 都 会 把 数据 抹 去 。 因 此 ， 在 对 程序 进行 编辑 之 前 ， 一 定 届 
考虑 好 数据 是 否 要 存 的 问题 。 

2 。 字 符 串 是 放 在 数组 空间 末尾 ， 因 而 ， 在 定义 字符 串 
之 前 一 定 要 先 将 数组 说 明 ， 否 则 会 抹 去 字符 串 。 


$ 4 使 用 外 存储 设备 的 注意 事项 


。 使 用 高 质量 的 磁带 存 信息 。 

。 使 用 尽 可 能 短 的 磁带 。 

。 保 持 连 线 两 头 接触 良好 。 

。 不 要 将 录 有 程序 的 磁带 放 在 强 磁场 附近 。 
。 尽 量 保证 录音 机 的 工作 电压 正常 。 

。 使 用 同一 录音 机 做 存 、 取 工作 。 

。 经 常 保 持 磁 头 清洁 。 

。 定 期 给 磁带 录音 机 消 磁 。 


co ~ Do ein 上 
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附 录 阳 


COMX 一 55P 打 印 机 及 功能 扩展 板 的 使 用 


便 用 COMX 一 35P 打 印 机 及 功能 扩展 板 首先 应 具备 全 系 
统 〈 录 音 机 不 用 时 可 不 接 入 ) 。 一 定 要 在 开始 时 就 将 各 部 分 
装置 连接 好 ， 不 要 中 途 播 入 扩展 板 。 打 印 机 开关 也 可 先 打 
开 。 


8$ 1 COMX 一 35P 打 印 机 操作 命令 


打印 机 的 所 有 操作 都 是 通过 功能 扩展 板 内 的 ROM 控 制 
的 。 统 一 采用 CALL 命令。 
执行 打印 有 若干 个 进入 点 地 址 ， 下 面 分 别 介 绍 。 
一 、 打 印 机 输出 
采用 
CALL (〈 目 C060) 
或 
CALL 〈 量 C040，1) 
或 
CALL (是 C070) 
命令 。 这 种 操作 是 关闭 电脑 显示 屏 状 ， 结 果 以 文本 输出 。 也 
就 是 说 结果 以 打印 机 按 标准 打印 格式 打印 出 来 。 此 种 方式 也 
可 以 直接 从 键盘 输入 打印 。 
2M2 


CALL (〔〈 和 Co60) 及 CALL 〈 自 Co40，17)》 禁 下 使 清 
CTRL-- 和 SHIFT 一 字符 打印 ， 丽 CALL 《时 C070) 不 
限 。 

二 、 关 闭 打印 机 

采用 

CALL (是 C050) 


波 


机 ( 目 C010，0) 
命 。 这 个 操作 是 关闭 打印 机 并 且 便 结果 由 屏幕 输出 。 
三 、 打 印 机 、 显 示 屏 同时 输出 
采用 
CALL (上 量 C080) 
或 
CALL (和 Co40，3 ) 
或 
CALL ( 量 C090) 
命令 。 这 种 操作 可 给 出 标准 打印 格式 的 文本 输出 ， 还 可 以 打 
条 刍 强 输入 的 符 支 
CALL (和 C080) 及 CALL ( 且 C040， 3 ) 命令 不 能 
完成 CTRE 一 和 SHIFT-- 字 符 答 山 。CALL Re 可 
以 完成 任何 字符 输出 。 
四 、 取 消 键盘 输入 字符 打印 
采用 
CALL (和 COA0) 
或 
CALL (Co40，5) 
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命令 。 这 种 方式 使 打印 机 停止 打印 由 键盘 输入 的 字符 ， 而 屏 
幕 上 仍 可 以 输出 键盘 输入 的 字符 。 
五 、 紧 次 行距 打印 
为 了 使 文本 输出 节省 纸张 ， 打 印 紧 次 行距 方式 采用 
CALL (有 COD0) 
CALL (有 EC040，8 ) 
命令 。 这 种 方式 使 行 与 行 之 间 的 距 驻 很 小 。 但 图 形 输 出 只 能 
打印 出 机 内 定义 的 图 形 、 字 符 ， 用 户 自 定义 字符 不 能 打印 。 
六 、 自 检 打 印 
采用 
CALL (县 COE0) 
或 
CALL (是 C040， 9 ) 
命令 。 这 种 方式 可 以 在 打印 机 上 打印 出 一 系列 标准 字符 ， 但 
屏幕 上 无 输出 。 
七 、 屏 幕 转 储 方 式 
屏幕 上 显示 的 信息 可 以 转 储 ， 并 且 可 以 按 用 户 的 要 求 在 
打印 机 上 给 出。 这 种 操作 方式 有 三 个 命令 
1 。 屏 幕 图 象形 成 
采用 
CALL (是 COF0， 1) 
命令 。 这 个 操作 将 内 存 BDFF 地 址 以 下 至 BA00 地 址 之 间 的 
内 容 转 移 到 系统 堆栈 内 。 该 区 间 保 留 1K 的 存储 单元 用 来 形成 
屏幕 图 象 。 此 命令 执行 后 ， 屏 幕 图 象 就 保留 在 BA00 至 BDFF 
的 内 存 中 。 这 个 命令 常用 于 应 用 程序 中 。 
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2 。 屏 幕 图 象 转 储 

采用 

CALL ( 目 COF0，2，X) 
命令 。 这 个 操作 是 使 打印 机 输出 打印 图 象 。 其 中 参数 X 是 行 
的 数量 ， 全 屏幕 共 24 行 ， 如 果 想 让 打印 结果 充满 全 屏幕 则 X 
为 24。 该 命令 用 于 图 象形 成 命令 之 后 。 

3 。 取 消 屏幕 图 象 

采用 

CALL 〈 且 COF0，3) 
命令 。 这 个 操作 是 将 系统 堆栈 的 内 容 转 回 到 原来 的 内 存 地 址 
中 去 。 它 用 于 图 象 转 储 命令 之 后 。 

九 、 显 示 入 口 地 址 命令 

如 果 想 在 屏幕 上 显示 入 口 地 址 可 采用 

CALL 〈 和 C040，11) 
命令 。 该 命令 执行 后 ， 屏 幕 上 应 为 : 

C050- PRINTER OFF (LEF) 

C060-TEXT (SP) 

Co80-T 人 TEXT (TV，SP) 

COA0-KEYBOARD OFF 

CoC0-MEM DUMP 

CO0D0-TEXT (NO SP) 

COE0-SELE 人 TEST 

Cl106- PRINTER OFRF (LEF) 

ClL0OC-MEM MOVE 

CILOF-MEM MODIEFY 

在 文本 与 图形 方式 互相 转换 时 ， 应 该 执行 CALL 
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( 利 C050) 或 CALL 〔 和 目 C106) 命令 ， 然 后 再 转向 图 形 方 
式 ! 或 执行 CALL (县 COF0，3) 命令 后 再 转向 文本 方式 。 
不 这 样 处 理 ， 就 会 产生 一 些 错误 ， 致 使 打印 中 断 。 


$ 2 打印 机 使 用 时 可 能 出 现 的 
错误 信息 


在 使 用 打印 机 时 会 发 生 一 些 常 见 错误 ， 这 时 屏幕 上 会 给 
出 错误 信息 。 通 常 有 以 下 三 种 ， 
一 、 准 备 不 当 
信息 为 
THERMAL PRINTER NOT READY 
这 说 明 打 印 机 疫 准备 好 ， 可 能 是 电源 未 接 通 或 没有 打印 纸 。 
二 、 命 令 错 误 
信息 为 : 
WRONG MODE SELECT CODE 
这 说 明 打 印 机 不 能 接受 输入 的 命令 。 
三 、 超 限 错 误 
信息 为 ， 
ENERGIZING TIME 卫 XCEEDS 1。6msy 
THIS AFFECTS THE OPERATION OF THE 
PRINTIER 
这 说 明 激 发 时 间 超 过 1,6ms， 需 停止 打印 。 
出 现 错误 信息 后 ， 需 重新 进行 操作 。 但 这 并 不 影响 前 面 
马 经 进行 过 的 工作 。 
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8$3 例 题 


例 B.1 在 打印 机 上 印 出 全 部 程序 清单 。 

打 入 

CALL (BC060) :LIST :CALL (EC050) 
按 CR 键 后 即 可 实现 。 

例 B.2 在 打印 机 上 印 出 10 至 400 行 的 程序 。 

打 入 

CALL (是 C070) : LIST 10，400:CALL 
(是 C050》 
按 CR 键 后 即 可 实现 。 

例 :B.5 打印 出 ASC 码 为 1 至 128 所 对 应 的 字符 。 

程序 如 下 ， 

10 CALL (有 生 C070) 

20 FOR I=1 TO 128 

30 PRINT I，CHR& (T) 

40 NEXT 

50 CALL (EC050) 

60 上 ND 
程序 输入 后 打 RUN， 按 CR 键 即 可 。 
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例 B.4 打印 出 以 下 图 形 


米 米 米 米 米 米 玉米 米 米 米 玉 炒米 玉米 米 米 玉米 来 米 米 来 
水 

米 米 。 米 
米 洲 米 沙洲 水 洲 求 水 玉米 炒米 米 米 米 米 米 炒 
洲 炒 洲 炒米 
洲 玉米 米 米 洲 求 米 米 米 米 米 米 米 洲 水 来 
洲 米 水 炒米 米 来 
米 米 沙洲 米 米 米 米 米 米 米 米 米 米 来 
米 水 米 米 米 玉米 玉米 米 米 水 水 米 来 
米 水 米 来 洲 洲 米 玉 米 
洲 水 玉米 玉米 米 来 米 米 米 炒米 玉 炒 
洲 玉米 玉米 玉米 米 米 米 米 炒米 米 洲 米 炒 
米 。 炒 米 米 水 
米 沙洲 玉米 米 米 米 洲 米 米 炒米 米 米 米 米 米 来 
米 洲 来 
米 玉米 洲 玉米 炒米 来 米 米 米 来 米 米 炒米 米 米 米 水 
水 

炒米 米 兴 玉米 米 米 米 米 米 沙 炒米 炒米 水 玉米 米 米 来 炒 


兴 兴 兴 关 兴 关 兴 关 关 关 闪 关 关 关 共 


程序 如 下 ， 

100 CPOS (0，0) : CLS 

110 CALL (时 COF0，1) 

120 H=0:X1I=40:Y1=21 

]30 N=1 :了 =H+2:X=X-2: YI=YL- 2 
140 X= 囊 :YY= 匡 

150 IE N=0 THEN GOTO 200 

160 FOR 玫 =Y TOY1 

170 CPOS ( 民 ，X) : PRINT “水 了 

180 NEEXT RK:Y=Y1 
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190 IFEN=0 THEN GOTO 130 

200 CPOS (Y，X) :X=X+1T: PRINT 《4 洲 尹 
210 IF X<X1 THEN GOTO 200 

220 IF N=0 THEN GOTO 160 

230 IFEY1<12 THEN GOTO 260 

240 N= 0 

250 GOTO 140 

260 CALL (有 COF0，2 ，24) 

270 CALL ( 量 COF0， 3 ) 

280 END 

在 打印 过 程 中 ， 按 CTRL -了 可 以 中 断 打 印 。 


$ 4 功能 扩展 板 的 使 用 


打印 机 需要 扩展 板 才 能 使 用 ， 这 在 前 面 已 经 介绍 过 了 。 
这 一 节 介 绍 如 何 利用 功能 扩展 板 做 下 述 工 作 。 
一 、 查 看 电脑 内 存 中 的 内 容 
通过 功能 扩展 板 可 以 直接 查看 电脑 内 存 中 的 内 容 ， 其 命 
令 为 

CALEL (图 C109，X，Y) 
其 中 参数 X 为 要 查看 内 容 的 首 地 址 ，Y 为 要 查看 内 容 的 尾 
地 址 ， 地 址 用 十 六 进 制 数 表 示 。 

该 命令 用 于 串 行 输出 方式 时 ， 可 以 选择 输出 装置 〈 屏 幕 
或 打印 机 ) 。 

例如 ， 要 在 屏幕 上 查看 地 址 0600 至 0700 之 间 存 储 器 中 的 
内 容 。 先 打 入 
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CALL ( 重 C109， 罩 0600， 图 0700 六 
这 时 屏幕 上 显示 出 
OUTPUT TO SCREEN(S) OR PRINTER (P) 
: 多 
(屏幕 输出 打 S， 打 印 机 输出 打 P) 我 们 想 让 结果 在 屏幕 上 
显示 ， 因 而 需 按 S 键 ， 然 后 按 CR 键 。 此 时 屏幕 土 显 示 出 内 
存 中 的 内 容 ， 
0600 89 8B 8A 86 0A 00 00 00 。。。、。。。，。。 
0608 00 00 00 00 00 00 FE D4 。。。、，。、，。 
0610 D4 D4 D4 D4 D4 00 00 FE 。，。。。。。， 
0618 E2 D0 C8 Do E2 FE 0000 。。。..，。.， 
0620 1E 20 20 20 20 20 1]E 00 。。。。、。。。。 
0628 00 FF EL E1I EL E1 ELI-E1 。。。。。。。， 
0630 E1 FF CO0 DE DE DE DE DE 
0638 DE DE CO FF 00 00 00 00 
0640 00 00 00 00 C1 C1 C1 CC 。。。。。。。。 
0648 C1 C1L C1 C1 C1 00 00 00 。。。。。。,。， 
0650 00 00 00 00 00 FF 1C 08 。。。。。。。， 
0658 08 08 08 08 1C 00 00 0E 。。。。。。。，。 
0660 04 014 0104 24 18 0000。。。。8，。.， 
0668 22 24 28 30 28 24 22 00 《8 (0 (927 。 
0670 00 E0 E0 E0 EO0 Eo EO EO0 。 。。 。。。。, 
0678 了 上 0 EO0 22 36 2A 2A 22 22 。。 《6 米 米 2 7 
0680 22 00 00 C8 C8 C8 C8 FE 7。。。。。。 
0688 DC C8 00 00 00 C8 CC FE 。。。。 。。 
0690 CC C8 00 00 00 FE E0 Fo0 


人 轨 时 和 四 全 导 得 


0698 E0 E0 Eo0 FEo0 Fo EO FFCLI.。，.，。。。。 。 
06A0 Cl1 Cl1 C1 C1L CI CI CI13C 。。。。。。。《 
06A8 22 22 3C 28 24 22 00 00 7 7 (8 7。。 
06B0 1C 22 20 1C 02 22 1C 00 。《。。?》? 。。。 
06B8 00 E0 E0 E0O E0O E0O0 E0O EO0 。。。。。。。。 
06C0 E0O FF CC DE FF FF FF FF ,，.。,。。。 
06C8 FF DE CC CC: CC CC CG CC 。。，。，。。 oo。 
06D0O0 CC CC CC CC 00 00 00 FF 。。。。。。。。 
06D8 FF FF 00 00 00 CC CC CC 。。。。 。。。。 
06F8 D8 FE D8g C8 00 00 00 C1 。。。。。。。。 
06F0 C1 C1 C1 C1 C1L CI CL FE 。。。。。。。，。 
0700 00 
二 、 拷 贝 256 字 节 的 存储 器 内 容 
如 果 想 将 某 段 地 址 内 的 内 容 拨 贝 到 一 段 新 地 址 中 ， 可 以 
利用 拷贝 合 令 。 其 格式 为 ， 
CALL (上 昌 C10C，X，Y) 
式 中 参数 X 是 原 内 存 的 末 地 址 ， 参 数 Y 是 新 内 存 的 末 地 址 。 
ee 
， 将 700 至 800 地 址 中 的 内 容 拨 贝 到 5000 至 5100 地 址 中 
要 
打 入 
CALL ( 虽 C10C， 量 0800， 目 5100) 
屏幕 上 出 现 ， 
SOURCE= 0800 DE9ST=5100 COPY (Y/N)? Y 
SOURCE = 0700 DEST=5000 COPY (CY/N)? Y 
SOURCE = 0600 DEST=4F00 COPY (Y/N)? N 
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并 显示 出 
READY 
3 多 
这 时 ， 拷 贝 工作 已 经 完成 。 可 查看 一 下 0700 至 0800 中 的 
内 容 与 5000 至 5100 中 的 内 容 是 否 一 致 。 这 里 列 出 5000 至 5100 
之 间 内 存 中 的 内 容 
CALL (EC109， 量 5000， 目 5100) 
OUTPUT TO SCREEN (S) OR PRINTER (P) 
4 9 
5000 00 00 00 00 00 00 00 00 。。。。。 。。。 
5008 00 00 00 00 00 00 00 00 。。。。。 。。。 
5010 00 00 00 00 00 00 00 00 。。。。。。。。 
5018 00 00 00 00 00 00 00 00 。。。。。。。。 
5020 00 00 00 00 00 00 00 00 。。。。。 。。。 
5028 00 00 00 00 00 00 C8 C8 。 。 。。。。。。 
5030 C8 C8 C8 08 C8 00 00 D4 。。。、。。。。。 
5038 D4 00 00 00 00 00 00 00 。 。。。。。。。 
5040 D4 FE D4 D4 FE D4 D4 00。。。。。、。。。 
5048 00 C8 DE E8 DC CA FC C8 。,，。.。 
5050 00 00 F2 F2 C4 C8 DO0 E6 。。。。。。。。 
5058 了 6 00 00 00 DO0 E8g E8 DO0 。。。。。。。。 
5060 EA E4 DA 00 C8 C8 CO CO0。。。。。。。。 
5068 CO CO C0 00 00 C2 C4 C8 。。。。。。 。 。 
5070 C8 C8 C4 C2 00 00 E0 DO0 。。。。。。 。 。 
5078 C8 C8 C8 Do E0 00 00 C8 。。 。。 。 。。。。 
5080 EA DC C8 DC EA C8 00 00 ， ，，。。，。 
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5088 00 C8 C8 FE C8 C8 00 00 ，。。。。。，。。 
5090 00 C0 00 C0 00 C0 C8 C8 。。，。。。。。 
5098 D0 00 00 00 00 FE 00 00 。。。。。。。。 
50A0 00 00 00 CI0 C0 C0 CO0 C0 。。。。。。。。 
50A8 C0 C8 C0 00 00 C2 C4 C8 。。。。。。。。 
50B0 Do0 Eo 00 00 00 DC E2 E6 。。。。。。。。 
50B8 EA F2 E2 DC 00 00 C8 C8 。 。。。 。 。。。 
50C0 C8 C8 C8 C8 DC 00 00 DC 。。。。，。。。。 
50C8 E2 E2 CC DO Eo FE 0000。。。。。。。。 
50D0 DC E2 C2 CC C2 E2 DC 00 。。。，。，。 
50D8 00 C4 CC C4 E4 FE C4C4。，。。。。。。 
50E0 00 00 FE Fo FC C2 C2 E2 。。。。。。。。 
50E8 DC 00 00 CC Do Eo FC E2 。。。。。。。。 
50FO E2 DC 00 00 FE C2 C4 C8 。。。。。。。。 
50F8 D0 Do Do 00 00 DC E2 E2 。、。。。。。。。 
5100 DC 

注意 ， 

拷贝 命令 中 的 Y 参 数 不 能 是 ROM 的 地 址 码 因为 ROM 是 

不 能 写 入 的 。 

例如 ， 

CALL (是 Cl10C， 昌 0900， 是 C003) 

SOURCE = 0900 DEST = C003 COPY (CY/N) ?YY 

FAIL AT Co003 WR=00 DR=FF 

FAIL AT Co02 WR=C8 DR=FF 

FAIL AT Cool WR=C8 DR=02 


9 9 


sa。 153。 


由 于 地 址 C003、C002 等 内 存 为 ROM 区 ， 因 而 不 能 写 入 。 
三 、 改 变 内 存储 器 中 的 内 容 
可 以 利用 功能 扩展 板 改变 RAM 中 的 内 容 。 其 命令 为 ， 
CALL (日 C10F) 
这 个 命令 可 以 改变 RAM 中 任 一 字 节 内 容 ， 但 不 能 改变 ROM 
中 的 内 容 。 
例如 ， 打 入 
CALL (〈 明 CI10F) 
屏幕 上 出 现 
MEM ADDR :4 
此 时 可 以 输入 RAM 的 地 址 数 ， 打 入 
4900 
屏幕 上 会 出 现 如 下 信息 : 
4900 FER 50 (改变 得 为 50》 
4901 FE 51 (改变 值 为 51) 
4902 FF 52 
4903 FF 5 
4904 FF 54 
4905 FF 55 
4906 FF 56 
4907 FF 57 
4908 FF 58 
4909 FF 59 
490A FE 5A 
490B FF 58 
490C FF 5C 
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站 有 和 提 


下 下 


5 
5E 


FF 5F 


下 下 


了 下 上 
上 下 


〈 按 空格 棒 可 保留 愿 内容) 


( 打 “，2” 则 向 回 列 出 地 址 ) 


( 按 空 格 棱 ) 


(这 些 地 址 中 的 内 容 已 经 改变 了 ) 


如 果 要 结束 这 项 工作 可 以 按 尼 SC 键 。 


现在 查看 一 下 4900 至 4910 地 址 中 的 内 容 。 


打 人 入 


CALEL 〈 昌 CC109， 


屏幕 上 出 现 


时 4900， 


是 491F) 


e 55 。 


OUTPUT TO SCREEN(S) OR PRINTER(CP) : 
打 入 S， 屏 幕 上 显示 出 ; 

4900 50 51 52 53 54 55 56 57 PQORS TUVW 

4908 58 59 5A 5B 5C 5D 5E 5F XYZ [和 ] + 一 

4910 FF 

ROM 中 的 内 容 是 不 能 改变 的 。 例 如 ， 打 入 

CALL 《是 C10F) 
屏幕 上 显示 出 

MEM ADDR， 

打 入 0900， 接 着 出 现 

0900 00 
打 入 40， 显 示 为 

0900 00 40 CHANGE _ FALL :M=00 
这 表明 ROM 中 的 内 容 是 改变 不 了 的 。 

利用 这 种 改变 内 存 内 容 的 输入 方式 可 以 编写 机 器 语言 
程序 。 机 器 语言 子 程序 比 BA SIC 语 言 程 序 执行 速度 要 快 很 
多 ， 一 般 在 游戏 程序 中 经 常用 到 。 学 习 机 器 语言 要 求 掌 握 
1802A 的 指令 系统 ， 这 些 在 附录 I 中 有 简单 介绍 。 
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附 录 CC 
COMX 一 PC 1 电脑 显示 器 的 制式 及 电脑 的 调整 


$ 1 显示 器 的 制式 


电脑 显示 器 选用 的 电视 接收 机 一 般 有 两 种 制式 ， PA、L 
制 和 NTSC 制 。 这 两 种 制式 是 不 相同 的 。 

一 、 图 形 字符 

在 PAL 制 中 每 个 字符 由 9 条 水 平 线 构成 ， 而 NTSC 制 
中 每 个 字符 由 8 条 水 平 线 构成 。 

在 NTSC 制 电视 系统 使 用 SHAPE 指令 时 ，Y 参数 的 最 
后 两 位 数字 是 无 效 的 。 

二 、 计 时 装置 

PAL 制 中 的 内 部 计时 器 比率 是 每 秒 50 次 ， 而 NTSC 制 
的 是 每 秒 60 次 。 因 而 ， 在 使 用 TI ME 指令 时 需要 考虑 参数 值 
的 选取 。 

三 、 测 试图 

在 COMX 一 PC 1 电脑 刚刚 开机 时 ， 可 以 从 测试 图 上 看 
出 电脑 处 于 何 种 制式 输出 。 两 条 水 平 线 在 PAL 制 或 NTSC 
制 中 会 显示 出 不 同 的 颜色 序列 。 
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一 - … 彩 色 杠 
人 O M X 
一 一 ……… 彩 色 杜 

当 彩 色 枉 的 颜色 为 绿色 或 蓝 色 时 ， 说 明 此 时 忠 脑 输出 为 
PAL 制 : 当 彩 色 枉 的 颜色 为 青色 或 黄色 时 ， 说 明 此 时 电脑 
输出 为 NTSC 制 。 根 据 彩 色 生 的 颜色 判断 出 电脑 的 制 开 ， 再 
根据 制式 来 选择 电视 机 。 


$ 2 电脑 的 简单 调整 


一 般 情 况 下 ， 无 需 对 电脑 进行 调整 。 确 有 必要 可 以 通过 
电脑 底 边 的 三 个 小 孔 做 些 调整 。 

这 三 个 小 孔 分 别 标 有 MIX，SYNC 和 VIDO 控制 ， 其 
功能 和 调整 步骤 简 述 如 下 。 


一 。MIX 
MIX 用 于 调整 颜色 信号 的 频率 ， 以 使 亮度 信号 与 色 度 
信号 之 间 的 干扰 最 小 。 


如 果 该 控制 调整 不 够 理想 ， 在 显示 屏 上 的 字符 边缘 会 出 
现 一 些 移 动 的 或 固定 的 彩色 点 。 

调整 MIX 可 按 以 下 步骤 进行 。 

1 。 打 入 以 下 程序 ， 

10 SHAPE (#40， 《FF FE FE FE ERE FE FF 
FE FEF2) 

20 PRINT “1 11 11 11 11 11 11 
下 
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tttittittltlltilil ll ii 
1 1: 江 22 

30 FOR A=1 TO 22 

40 PRINT CHR8 (107，108，64，237，235， 


236，192) 
50 FOR I=1 TO 8 
60 READ X 
70 FOR J=1l1 TO 14 
80 PRINT CHR8(X)) 
90 NEXT 
100 NEXT 工 
110 PRINT “ 人 


120 了 有 匡 STORE 

130 NEXT 人 

140 了 = 开 卫 Y 

150 IF B< > 869 THEN GOTO 140 

160 END 
执行 此 程序 。 

2. 调 MIX 小 孔 中 的 螺丝 。 观 察 数 字 “1 2 的 沁 缘 和 
彩色 竖 线 之 间 的 地 方 ， 缓 漫 虽 仔细 转动 螺丝 ， 直 至 依附 在 字 
符 上 的 彩色 点 不 出 现 为 止 。 

有 些 电脑 显示 屏 的 彩色 在 调节 时 会 全 部 变 成 黑白 色 ， 这 
册 只 要 反方 向 转动 螺丝 ， 彩 色 会 重新 出 现 。 

二 、SYNC 

SYNC 孔 用 来 调整 同步 脉冲 的 振幅 ， 调 整 时 要 十 分 小 
心 ， 一 般 应 有 示波器 配合 。 
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符 、VIDEO 

VIDEO 孔 用 来 调整 送 给 REF 调制 器 的 图 象 信 号 的 捐 
幅 ， 振 幅 低 使 图 象 模糊 ， 振 幅 高 使 黄色 显示 为 和 白色。 一 般 情 
况 下 不 要 调节 这 个 控制 孔 。 
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附 录 了 


十 进 制 、 十 六 进 制 、 二 进 制 换算 表 


十 进 制 十 六 进 制 二 进 制 
0 0 0 
1 1 1 
2 2 10 
3 3 11 
4 4 100 
5 5 101 
6 6 110 
7 7 111 
8 8 1000 
9 9 1001 
10 人 A 1010 
11 B 1011 
12 C 1100 
13 D 1101 
14 瑟 1110 
15 下 1111 
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附 录 此 
COMX 一 PC 1 电脑 内 存 分 配 表 


g800 下 显示 屏 RAM | 2 
F400 F7 FF 字 符 RAM KK 
ro FaFF | 保留 四 
E400 | sp | 保 留 4 
Se 和 | RE LU 
c000 DEFFF 存储 库 8K 
ago | arFF | 人 虹 贸 1 
而 
| BASIC 程 序 区 ， 32K 
机 器 洒 言 了 程序 区 
oo | serr | 系统 | uc | 
| | 


说 明 

0000 一 3FFF 

内 部 系统 ROM。 包 含 1) BASIC 解释 程序 。 (2) 
电视 和 键盘 操作 系统 。 〈3 ) 磁带 操作 系统 
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4000- 一 43FF 

系统 参数 存储 区 。 

4400 一 BDFF 

BASIC 程 序 和 数据 存储 区 。 系 统 堆栈 的 顶部 在 BDFF。 

BE00 一 BFFF 

8 必 字 节 的 8 个 存储 库 。 用 于 系统 的 扩展 。 对 于 某 个 区 
引进 读 、 写 操作 之 前 程序 必须 先 选择 所 要 的 存储 库 。 

E000 一 EFFF 

保留 。 用 于 存储 库 之 间 的 通讯 ， 不 能 适应 于 一 个 8 发 字 
节 存 储 器 的 应 用 。 

F000 一 下 3 FF 

保留 。 

F400 一 F7FF 

字符 定义 的 RAM 区 。 这 个 区 保持 128 个 字符 的 点 模式 。 
字符 可 由 BASIC 中 的 SHAPE 指令 改变 。 这 个 区 只 能 由 转 
到 CDP1869 IC 的 “字符 存储 存 取 ” 的 状态 来 访问 。 

F800 一 FFFF 

显示 屏 页 面 存储 器 。 每 一 个 字 节 保 技 译 上 一 个 显示 字符 
位 的 字符 代码 。 在 写 入 之 前 ，F800 代表 屏 上 左上 角 的 字符 
位 置 ，F801 紧 挨 F800 右 边 的 一 个 位 置 ，F803 代 表 F802 右 边 
的 一 位 置 …… 等 等 。EBBF 代 表 屏 上 右 下 角 位 置 。 硬 件 写 入 
是 通过 改变 在 CDP1869 IC 里 面 的 家 庭 地 址 寄存 器 完成 
的 。 该 区 是 只 写 存 储 区 ， 而 且 只 能 在 没有 显示 的 时 间 访 问 ， 
程序 可 以 等 到 没有 显示 的 时 候 再 直接 写 入 这 个 区 。 
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附 录 下 
键盘 字符 及 机 内 字符 的 ASCIHI 码 
ASCII 码 按键 图 形 


十 进 制 ”十 六 进 制 
0 0 


1 1 CTREL 一 A 末 
2 2 CTREL 一 B 之 
3 3 

4 4 CTRL 一 D 口 
5 5 CTREL 一 也 加 
6 6 CTRL 一 F 

7 7 CTRL 一 G | 
8 8 CTREL 一 五 一 
9 9 

10 人 LEF 

11 B 

12 C CTRE 一 L | 
13 D CR 

14 下 CTREL 一 N 号 
15 F CTRL 一 9 中 
16 10 CTREL 一 P 三 
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十 进 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 


ASCII 码 
制 “十 六 进 制 
11 
12 
13 
14 
15 
16 
17 
18 
19 
1A 
1B 
1C 
1D 
1 也 
1 下 
20 
21 
22 
23 
24 
25 
26 
27 
28 


按 键 


CTREL 一 Q 


CTRE 一 了 

CTREL 一 U 
CTRE 一 V 
CTREL 一 允 
CTREL 一 六 
CTREL 一 Y 
CTREL 一 2 


图 形 


刁 


人 三 


L 合十 1! 


~ 名 并 人 扣 章 


一 


输出 颜色 


青色 


青色 
青色 
青色 
青色 
青色 
青色 
青色 


青色 
青色 
青色 
青色 
青色 
青色 
青色 
青色 
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ASCII 码 


十 进 制 ”十 六 进 制 


41 


466。 


29 
2A 
2B 
2C 
2D 
2 世 
2F 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
3A 
3B 
3C 
3D 
3 也 


an 
吕 


40 


按 


吕 ownamoaonpmonsrm oN 


oo 四 上 oo 一口 八 。 


ASCII 码 按 ” 刍 图 形 输出 颜色 
十 进 制 ”十 六 进 制 

65 41 人 人 A 青色 
66 42 B B 青色 
67 43 C C 青色 
68 44 D D 青色 
69 45 已 已 青 

70 46 F F 青色 
71 47 G G 尼 色 
72 48 H | 青色 
73 49 I I 青色 
74 4A 了 青色 
75 4B 开 开 青色 
76 4C L L 青色 
77 4D M M 青色 
78 4 蕊 N N 青色 
79 4 O O 青色 
80 50 P P 青色 
81 51 Q Q 青色 
82 52 R R 青色 
83 53 S S 青色 
84 54 T T 青色 
85 55 U U 青色 
86 56 V V 青色 
87 57 机 WW 青色 
88 58 X X 青色 
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ASCII 码 
十 进 制 “十 六 进 制 

89 59 
90 5A 
91 5B 
92 5C 
93 5D 
94 5 也 
95 5F 
96 60 
97 61 
98 62 
99 63 
100 64 
101 65 
102 66 
103 67 
104 68 
105 69 
106 6A 
107 6B 
108 6C 
109 6D 
110 6 也 
111 6F 
112 70 


立 


之 盖 了 王 


SHIFT 一 A 
SHIFT 一 B 
SHIEFT 一 C 
SHIFT 一 D 
9HIFT 一 也 
SHIFT 一 F 
SHIFT 一 G 
SHIFT 一 开 
SHIFT 一 I 
SHIFT 一 了 
9HIFT 一 及 
SIIIFT 一 世 
SHIFT 一 M 
SITIEFT 一 N 
SHIFT 一 O 
SHIFT 一 P 


图 形 


省 过 AmN- 


中 人 为 国 国 图 Cooco -ohowowombrm 


输出 颜色 


ASCTII 码 
十 进 制 ， 十 六 进 
113 71 
114 2 
115 73 
116 74 
117 75 
118 76 
119 77 
120 73 
121 79 
122 7A 
123 7 了 
124 7C 
125 7 
126 7 也 
127 7 下 
144 90 
145 91 
146 92 
147 93 
148 94 
149 95 
150 98 
151 97 
152 98 


上 制 


SHIFT 一 Q 
SHIFT 一 R 
SIITFT 一 5 
SHITFTI 一 全 
SHIRFTL 一 人 
SHIEFTI 一 V 

SHIRFTI 一 - 妈 
SHIFT 一 X 
SHIEFT 一 Y 
SHIETIT 一 -2Z 


输出 颜色 


本 


 -T 册 
册 了 
是 一 亚 此 


订 


3 
臣 全 全 七 愉 仆 


1 T 
4 


卫 | 
人 


ASCII 码 
十 进 制 “十 六 进 制 

153 99 
154 9A 
155 9B 
156 9C 
157 9D 
158 9E 
159 9F 
160 A0 
161 Al 
162 A2 
163 A3 
164 A4 
165 A5 
166 A6 
167 A7 
168 A8 
169 A9 
170 AA 
171 AB 
172 AC 
173 AD 
174 AE 
175 AF 
176 B0 


170 。 


按 


键 


白色 
白色 


ASCII 码 按 键 图 形 输出 颜色 
十 进 制 “十 六 进 制 
177 Bl 1 白色 
178 B2 2 白色 
179 B3 3 白色 
180 B4 4 白色 
181 B5 5 白色 
182 B6 6 白色 
183 B7 7 白色 
184 B8 8 白色 
185 B9 9 白色 
186 BA : 白色 
187 BB 3 白色 
188 BC << 白色 
189 BD = 白色 
190 BE > 白色 
191 BF ? 白色 
192 C0 嗓 白色 
193 C1 人 白色 
194 C2 B 白色 
195 C3 C 白色 
196 C4 D 白色 
197 C5 忆 白色 
198 C6 下 和 白色 
199 C7 G 白色 
200 C8 瑟 和 白色 


ASCII 码 按 键 图 形 输出 颜色 
十 进 制 “十 六 进 制 


201 C9 I 上 息 色 
202 CA 本 问 色 
203 CB 开 站 色 
204 CC 革 蝇 色 
205 CD M 白色 
206 CE N 白色 
207 CF OO 白色 
208 D0 也 白色 
209 D1 Q 白色 
210 D2 R 白色 
211 D3 S 鼎 色 
212 D4 工 白色 
213 D5 U 白色 
214 D6 V 白色 
215 D7 人 白色 
216 D8 久 白色 
217 D9 Y 站 色 
218 DA Z 白色 
219 DB [ 辐 色 
220 DC 和 \ 白色 
221 DD ] 和 色 
222 DEE 爹 疡 色 
223 DRF 一 自 色 
224 E0 0 滥 色 


ASCII 码 按键 图 形 输出 颜色 

十 进 制 ”十 六 进 制 

225 E1 1 黄色 
226 下 2 2 黄色 
227 世 3 3 疫 色 
228 E4 4 蔓 色 
229 了 5 5 慌 色 
230 EE6 6 黄色 
231 卫 7 7 贡 色 
232 E8 8 疲 色 
233 E9 9 黄色 
234 世 A 0 黄色 
235 EDB 器 黄色 
239 EC 洋红 色 
237 ED 足 红色 
238 E 卫 入 四 色 
239 下 侯 白 色 
240 F0 史 : 导 色 
241 评 es 和 色 
242 F2 字 白色 
243 下 3 念 白色 
244 F4 C 所 色 
245 F5 O 刁 色 
248 FG M 己 色 
247 F7 叉 白色 
248 F8 一 黄色 


ASCII 码 
十 进 制 “十 六 进 制 
249 F9 
250 FA 
251 FB 
252 FC 
253 FD 
254 FE 
255 FF 
特 丈 字符 
ASCII 码 
十 进 制 十 六 进 制 
128 80 
129 81 
130 82 
131 83 
132 84 
133 85 
134 86 
135 87 
136 88 
137 89 
138 8A 
139 8B 
140 8C 
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按 


el 过 Oo 


输出 用 途 


光标 向 上 
光标 向 右 
光标 向 下 
光标 向 左 
CR 
清 全 屏幕 


SS 


DELI 键 
CTRL-S 
向 上 键 
向 右键 
向 下 键 
向 左 键 
CTRL-R 


特殊 字符 


ASCII 码 输出 用 途 读 键盘 
十 进 制 十 六 进 制 
141 8D CTREL-C 
142 8 也 
143 8F 
特殊 键 功能 
按 键 功 能 
CTRL 一 C 输入 行 无 效 
CTRL 一 I 光标 向 上 
CTRL 一 】 光标 向 左 
CTREL 一 玫 光标 向 右 
CTRL 一 M 光标 向 下 
CTRL 一 R 重复 最 后 行 
CTRL 一 S 停止 编辑 


1955， 


s 人 


附 录 G 
键盘 字符 定义 表 


定义 码 
C8 C8 C8 C8 C8 08 C8 00 00 
D4 D4:00 00 00 00 00 00 00 
D4 FE:D4 D4FE D4 D4 00 00 
C8 DE`E8 DC CA FC C8 00 00 
F2 F2 C4 C8 D0 E6 E6 00 00 
00 D0 E8 E8 DO0 EA E4 DA 00 
C8 C8 C0 C0 CO0 C0 C0 00 00 
C2 C4C8 C8 C8 C4 C2 00 00 
E0 D0 C8 C8 C8 DO E0 00 00 
C8 EA DC C8 DC EA C8 00 00 
00 C8 C8 FE C8 C8 00 00 00 
C0 00 C0 00 CO0 C8 C8 D0 00 
00 00 00 FE 00 00 00 00 00 
C0 C0 C0 CO0 CO Co0 C8 C0 00 
00 C2 C4 C8 D0 E0 00 00 00 
DC 了 2 E6 EA F2 卫 2 DC 00 00 
C8 D8 C8 C8 C8 C8 DC 00 00 
DC E2E2 CC DOEOEFE 00 00 
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色 oo 站 喇 思 少 cc 


证 DOOor 国 一 V 


DC E2 C2 CC C2E2DCO 68 
C4CCD4E4EFEC4C40000 
FE FO FC C2 C2 了 2 DC 00 00 
CC DO EO FC 匡 2 了 2 DC 450 09 
FE C2 C4 C8 D0 DO0 D0 6a 00 
DC 匡 2 了 2 DC 匡 2 节 2DC0000 
DC E2E2 DEC2 C4 C8 00 000 
C0 C0 C2 C0 C8 CO0 C0 00 09 
C0 C0 C8 C0 C0 C8 C8 D0 00 
C4 C8 D0 E0 DO C8 C4 00 60 
CO CO0 FE CO0 FE CO0 C0 00 00 
E0 DI C8 C4 C8 D0 E0 00 60 
DC 了 2 C4 C8 C8 CO0 C8 00 00 
FF FF FF FF FF FFR FE FEF 00 
C8 DC 匡 2 下 2 FE 辽 2 了 2 00 00 
FC D2 D2 DC D2 D2 FC 00 00 
DC 匡 2 E0 E0 E0 下 2 DC 00 00 
F8 刁 4 刁 2 也 2 也 2 下 4 F8 00 00 
FE E0 E0 FC E0 EO FE 00 00 
FE E0 E0 FC EO 下 0 下 0 00 08 
DLL 卫 有 0 EC 00509 
也 2 也 2 瑟 2 FE 了 2 卫 220000 
DC C8 C8 C8 C8 C8 DC 00 00 
CE C4 C4C4C4E4 D8 00 00 
了 上 2 卫 4 了 8 F0 E38 LE4 了 200 00 
E0 E0 E0 E0 Ea EO FE 00 00 
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中 局 mmNX 挟 CDoamoDmoeoz 芝 


芋 2 F6 EA EA 匡 2 辽 2 世 2 00 00 
卫 2 了 2? F2 EA E6 也 2 也 2 00 00 
DC 匡 2 芋 2 了 2 了 2 卫 2 DC 00 00 
FC 匡 2 也 2 FC 了 E0 E0 了 0 00 00 
DC 了 2 了 2 了 2EAE4DACO0000 
FC 匡 2 了 2 FC 了 8 了 4 了 2 00 00 
DC E2 E0 DC C2E2 DC 00 00 
FE C8 C8 C8 C8 C8 C8 00 00 
世 2 了 2 匡 2 刁 2 刁 2 了 2 DC00 00 
E2 了 E2E2D4D4C8C8 0000 
匡 2 了 2 了 2 卫 AEA F6200 00 
E2 瑟 2 D4C8 D4 瑟 2 也 2 00 00 
已 2 了 2 D4C8C8 C8 C8 00 00 
FE C2 C4 C8 D0 E0 FE 00 00 
CE C8 C8 C8 C8 C8 CE 00 00 
C0 E0 DO0 C8 C4 C2 C0 00 00 
DC C4C4C4C4C4DC 00 00 
C8 DC FE 68 C8 C8 C8 00 00 
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00 
01 

02 
03 
01 
08 
06 
07 
08 
09 
10 


11 
12 
13 
14 
15 
16 
17 


附 录 本 


COMX 一 PC1 错误 信息 表 


由 用 户 引 起 的 中 断 

在 ASC 或 LEN 函 数 中 有 语法 错误 
数组 无 说 明 或 溢出 

维 数 错误 

DEFINT 结 尾 不 合法 

自 变量 中 缺 括号 

自 变量 溢出 

混合 形式 计算 

0 做 除数 或 对 负数 求 对 数 

遇 到 不 可 执行 的 函数 

EXIT 指 令 必 须 用 于 FORANEXT 或 GOSUB~ 
RETURN 语 句 中 
FORNEXT 媒 套 太 多 或 立即 执行 
FOR 语句 中 有 语法 错误 
GOSUB 欧 套 太 多 

在 十 六 进 制 数 中 有 不 能 接受 的 字符 
浮 点 数 转换 整数 溢出 或 整数 乘法 溢出 
在 条 件 语句 中 有 不 可 接受 的 字符 
INPUT 或 FVAL 不 能 立即 执行 
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12 READ 语句 中 缺 变量 名 
19 READ 或 INPUT 中 有 语法 错误 
20 LEN 函 数 中 有 语法 错误 

21 赋值 语句 中 有 语法 错误 

22 僻 少 引号 

23 IIST 中 有 语法 错误 

24 在 程序 库 中 无 此 字 


25 MID8 函数 中 有 语法 错误 
26 NEXT 语 句 中 有 不 接受 的 变量 名 


27 ” 缺 所 需要 的 数 或 字 

23 筷 少 括号 

29 POKE 语 句 中 由 变量 个 数 不 对 
30 了 PRINTL 放 句 最 后 的 字符 不 能 接受 
31 DATA 语 危 中 有 语法 错误 

32 DATA 语 句 中 数据 不 够 

33 INPUT 语 句 中 找 不 到 相应 的 字符 串 
34 赋值 诺 句 中 缺 等 号 

35 ”字符 串 数 组 中 缺 括 号 

36 USR 或 CALEL 中 自 变 量 太 多 

37 CHR ?函数 有 语法 错误 

38 二 进 制 数 中 有 不 可 接受 的 字符 

39 行 缓冲 器 溢出 

40 输入 时 文件 未 打开 

锌 ”输出 时 文件 未 打开 

42 行 的 结尾 不 可 接 肥 起 语句 不 可 执行 
43 推 栈 溢出 
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数 的 位 数 太 多 

在 数据 区 有 不 可 接受 的 字符 
无 此 行 号 

IE 语句 中 有 非法 运算 符 
存储 器 溢出 

MOD 语 句 中 自 变量 个 数 不 对 
程序 太 长 

自 变 量 超出 范围 

自 变量 个 数 错 识 

自 变 量 个 数 错 误 
字符 串 变 量 无 定义 

读 带 错 误 

写 带 错误 
文件 不 是 BASIC 程 序 
文件 不 是 BASIC 数 据 

保留 

保留 

保留 

未 送 ROM 或 ROM 卡 片 
无 足够 的 存储 单元 供 重 新 编 行 号 
重 编 行 号 设置 有 错误 

无 说 明 的 下 标 变 量 

字符 名 超 出 127 个 字符 


COLOR 中 自 变 量 的 个 数 多 于 1 个 
SCREEN 中 自 变 量 的 个 数 多 于 工 个 
CTONE 中 自 变 量 的 个 数 多 于 工 个 


70 VOLUME 中 自 变量 的 个 数 多 于 1 个 
71 NOISE 中 自 变 量 的 个 数 不 是 2 个 
72 TONE 中 自 变 量 的 个 数 不 是 3 个 
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附 录 | 
机 器 语言 程序 简介 


8$ 1 机 器 语言 程序 编写 规则 


在 BASIC 语言 中 调用 机 器 语言 程序 使 用 指令 CALL。 
CALEL 通 常 有 以 下 三 种 格式 ， 

CALL (表达 式 1) 

CALL (表达 式 1 ， 表 达 式 2 ) 

CALL (表达 式 1 ， 表 达 式 2 ， 表 达 式 3 》 通 过 CALL 
指令 ， 可 以 执行 机 器 语言 程序 。 

编写 机 器 语言 程序 应 牢记 以 下 规则 。 

一 、 进 入 子 程序 的 程序 计数 器 是 R 2 。 

二 、 用 D5 (SEP R5) 指令 返回 BASIC。 

三 、 机 器 语言 程序 可 随便 使 用 R8 ，RA，RC，RD 和 
2 蕊 。 如 果 要 使 用 其 他 寄存 器 ， 首 先 应 存 到 堆栈 并 在 返回 
3ASIC 之 前 复原 。 

注意 ， 不 可 使 用 标准 的 调用 和 返回 方式 (93CRT) ， 因 
为 它 会 破坏 寄存 器 F (RF.1) 的 上 部 。 

四 、COMX BASIC 已 建立 了 调用 和 返回 的 规定 ， 不 
恩 要 再 用 机 器 语言 子 程序 重复 。 

编写 机 器 语言 程序 必须 了 解 1802 的 指令 系统 ， 


| 
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$2 1802A 简 介 


基于 1802A 的 详细 资料 请 参阅 1802 技 术 阅 明 。 这 里 只 介 
绍 1302A 的 寄存 器 和 指令 系统 。 
一 、1802A 寄 存 器 
1 。D 寄 存 器 
D 是 数据 寄存 器 (Accumulator》， 它 是 一 个 8 位 寄 
存 器 。 
2 。DFTF 和 寄存 器 
DEF 为 数据 标志 寄存 器 。 它 是 1 位 寄存 部 。 
3 。B 寄 存 器 
B 为 8 位 辅助 寄存 器 。 
4。 及 寄存 器 组 
R 为 一 个 寄存 器 组 ， 他 们 由 16 个 寄存 器 组 成 。 每 个 寄存 
器 都 是 16 位 的 。 
5 。 了 寄存 器 
P 是 做 为 程序 计数 器 使 用 的 4 位 寄存 器 。 
6 。X 寄 存 器 
X 是 一 个 4 位 的 数据 指针 寡 存 器 。 
7。N、I 寄 存 器 
N 为 低位 指令 寄存 器 ，L 为 高 位 指令 寄存 器 。 它 们 均 为 
4 位 办 存 器 。 
8 .了 工 寄存 器 
了 是 一 个 8 位 寄存 器 ， 它 的 作用 是 当 CDTD 执 行 中 断后 ， 
党 留 X、P 寄 存 器 内 容 ， 此 时 又 为 高 位 寄存 器 。 
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9 。]1 了 和 Q 

IE 和 Q 孝 是 1 位 寄存 器 ，1! 下 是 中 断 寄存 器 ， 而 Q 为 触发 
答 岂 寄存 器 。 

二 、i802 指 令 系 统 

1302 指 令 系 统 由 下 面 的 指令 表 列 出 ， 其 中 操作 三 为 十 六 
泪 制 数 。 所 有 寄存 器 的 位 数 均 是 从 低位 (LSB) 到 高 位 
<《MSB) 。 

R_ 〈CW) 

M 坎 示 寄 存 器 ， 这 里 刚 为 N 或 X 或 P。 

R CW) .0 ”表示 R (CW) 的 低位 

R C(W) ,1 表示 R(CW) 的 高 位 

操作 符号 

M (CR (CN) ) -Dr RCN) +1-RCN) 
意思 就 是 ， 将 及 CN) 定义 的 存储 器 中 的 数 送 入 D 寄存 器 并 
且 将 R CN) 增加 1 工 再 送 入 RCN ) 。 


指令 系统 表 
指令 助 记 符 操作 码 操作 
取 太 LDN 0N MI(CRCN ))-~>D  N 不 为 0 


取 N 且 增 LDA 4 M(R CN) ) -~>D 
RCIN)+ 1->RCN) 
- 取 又 LDX FI0 MI(R ((X)) 一 D 
- 取 X 且 增 ， LDXA 72 M(R(X))-D; 
R(X) +1->R(X) 
惠 接 取  LDIi F8 M(R(P))->D5 
RCIP)+1->R(P) 


es。 185。 


存 N STR 5N 
存 X 旦 减 STXD 73 


增 1(N) INC 1N 
减 1(N) DEC 2N 
增 1(X) IRX 60 
得 低位 N  _GLO 8N 
放 低 位 N  PLO AN 
得 高 位 N GHI 9N 
放 高 位 N PHI  BN 
或 OR F1 
直接 或  ORI  F9 


异 或 XOR  Fs 
直接 异 或 ”XRI  FB 


和 AND  F2 
直接 和 ANTL FA 


变换 右 移 SHR Fi6 


进位 
变换 右 移 SHRC 76 


RSHR 


D->M (CRCN) ) 
D->M(R(CX)); 

R(X) =- 1 一 RCX》 
RCN)+ 1->RCN) 
RCN)- 1-~>RCN) 
R(X)+ 1->R(CX) 
RCN)。.0 ->D 
D->RCN). 0 
RCN)。1->D 
D->R CN) .1 
M(CR (X)) ORD-~>D 
M(CR (P)) ORD->D 
RCIP) + 1 一 R (CP) 
M(R (X)) XOR 、D-~>D 
M(R (P)) XOR D-~>D， 
R(P) + 1~>R (P) 
M(R ((X)) AND D-> 
M(CRCP)) AND D-~>D 
RIP)+ 1-~>R (P) 

D 右 移 LSB (D) -DEF 
0-~>MSB (D) 


D 右 移 LSB(D) -DEF，DRFr 
DEFE->M9S9B (D) 


变换 左 移 SHL FE D 左 移 MSB (D) DEF 
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变换 左 移 SHLC 


进位 RSHL 

加 ADD 

直接 加 ADI 

进位 加 ADC 
直接 进 ADCI 
位 加 

诚 D SD 
直接 减 D SDI 
借 位 减 D SDB 
直接 借  SDBI 
位 减 D 

碱 存储 器  SM 
直接 减  SMI 
存储 器 

借 位 减 SMB 
存储 器 
借 位 直接 SMBI 
减 存 储 器 

短 转 移 BR 


7 忆 


4 
FC 


74 
7C 


了 5 
FD 


75 
7D 


FE7 


9 


77 


7 下 


30 


0->LSB (D) 
MSB (D) -DPE， 
D 左 移 DEF->LSB (D) 


M(R (X)) +D->DEFE，D 
M(R (P)) +D-DEFE，R (P) 
+ 1 一 R (P) 
M(R(CX))+D+DF->DF，D 
M (R(IP))+D+DF->DF，D， 
RCIP) + 1 一 R (P) 
M(R(X)) -D->DEFE，D 
M(CR (X)) -D- 一 DE，D; 
R(P) + 1 一 R (P) 
M(CR(CX))-D-( 非 DE)-~>DEF,D 
M(CRIP))-D=-( 非 DF) 
~>DEFE，D; 
R_ (P) + 1 一 R (P) 
D-MCRIX))-DEFE，D 
D-MCRIP))->DF，D; 
R (CP) + 1 一 R (P) 
D-MCRCX)) 一 ( 非 DE) 
-~>DEFE，D 
D 一 MGCR(CP)) 一 ( 非 DF7 
-~>DEF，D; 
R (P) + 1-~>R (P) 
M(RCP))-~>RCP)。0 
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非 短 转 移 
如 果 D = 0 则 
短 转 移 


如 果 D 非 零 
则 短 转 移 


如 果 DE= 1 
则 短 转 移 
正 或 0 


如 果 DE =0 
则 短 转 移 
为 负 
如 果 Q= 1 
则 短 转移 


如 果 Q =0 
则 短 转 移 


如 果 了 FI1=1 


则 短 转移 
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NBR 
BZ 


BNZ 


BDFEF 


BPZ 


BNEE 


BM 
BQ 


BNQ 


B1 


38 


3 A 


33 


31 


39 


34 


RCP)+ 1->R (CP) 
IE D=0，M(CR(P))-> 
RCP)。0 
卫 L9E RGBP)+ 1->RCP》 
IF D 非 0,M(CR(Py)》 
-> 有 人 (P)。0 了 LSE 
RCIPE)+ 1-~>R(P) 
IF DEFE=1，M (CR 
(了 )) 一 人 (P) .0 
了 LSE RCP)+ 工 -> 
R(P) 
IF DEF=0,M(CR 
(P))- 一 R(P)。0 
芝 LSERCP) +1->RCP> 
IF Q=1,MCRCP)y》 
一 人 (P) 。0 
卫 LSE RCGP)+ 1 -> 
R(Py) 
IE Q=0，M(CRCP) 
-> 有 (PE 。0 
ELSE RCP)+ 1 
-一 有 信 ( 了 ) 
IF EF1=1，M(CR 
(P))->R(P)。0 
了 ELSE RCP) + 1 -> 
R(CP) 


旭 果 EF1 = 0 则 短 转 黎 


如 果 尼 F2=1 则 短 转 秘 


如 果 EF2=0 则 得 转移 


如 果 EF3= 1 则 短 转 移 


妃 果 EF3= 0 则 短 转 移 


如 果 EF4= 1 则 短 转移 


如 果 EF4= 0 则 短 转移 


BN1 


B2 


了 BN2 


用 3 


BN3 


DBD4 


BN4 


3C IFEFI=0 ， MICR 
(P))->RCP)。0 

ELSE RIP) +1->R(P) 

35 IF EF2= 1M(RCP) 


一 RCGP) 。0 
已 LSBEE RCP)+ 1 > 
REP) 


3D IF 了 F2=0，MKR 
( 卫 )) -> 及 ( 呈 ) .0 
也 LSE RGBP)+1i->RCP) 
36 IF LEEFE3=1,MCRCP))》 
-> 有 R (P) 。0 
已 T9E RCP)A+ 1-> 


R(CP) 

3 IF EEF3=0, MOCRCP)) 
和 RECP)e0 
EL9E R (P) + 1 
->R(P) 


37 TEF 卫 F4=1, M 
(CRCP)) 一 R《P) ,9 
也 TS9 开 RGP) + 革 一 


R(P) 

3F IFEF4=0,M(CR(CP)) 
->R(P) .0 
ELSE RCP) + 1 -> 
R(P) 


89 


长 转移 [BR 


非 长 转移 NLBR 


如 果 D= 0 LBZ 


则 长 转移 


如 果 D 非 0 LBNZ 


则 长 转移 
如 果 DF= 1 LBDF 
则 长 转移 
如 果 DF = 0 LBNF 
则 长 转移 
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CA 


C3 


CB 


M(RIP))->RCP), 1 
M(R (P) + 1 ) -> 
R(CP) .0 
R(P)+ 2->R(CP) 
IFD=0,MCRCP)) 
ER (六 
M(CRCP) + 1 )-> 民 
(P) 。0 
了 上 LSE RCP)+ 2 一 
R (P) 
IF D 非 0M (CRCP) 
一 人 (P) .1 
MIRCP)+1)-~>RCP) 
.0OELSE RCP)+ 2 
一 人 R(P) 
IF DE=1，M CR 
(了 )) ->R(CP) 。1 
M(CR (P)+ 1 ) 一 R 
(CP) 。0 
了 LoSE RCP)+ 3 一 
R_ (PEP) 
IF DF=0,MC CR 
(了 )) ->R(P) ,1 
M(R(CP)+ 1 ) -> 
RCIP) .0 


如 果 Q= 1 LBQ 
则 长 转移 
如 果 Q= 0 LBNQ 
出 长 转移 


' 短 岗 跃 SKP 
长 跳跃 LSKP 
如 果 D= 0 LSZ 


则 长 此 跃 
如 果 D 非 0 LSNZ 
则 长 跳跃 
如 果 DEF= 1 LSDEF 
则 长 跳跃 
如 果 DF= 0 LSNEF 


C1 


C9 


38 
C8 
CE 


C6 


了 LSE RCP)+ 2 一 
R_ (Py) 
IFQ=1，M(CR 
(了 ))- 一 了 有 (PE) 。 1 
M(RCP) + 1) ~> 
RCIP) 。0 

了 LSE RCP) +2 
一 及 (了 ) 
IFQ=0，M(R 
(P))->R(GP)。1 
M(RCP) + 1 ) 一 R 
(P) .0 
ELSERCP)+ 2-> 
R(P) 

RCP)+ 1->RCP) 
RCP)+ 2-~>RCP) 

IFED=0,R(CP) + 

2 一 R(P) 

否则 继续 

IF D 非 0，RCP) + 
2 ~ 人 R(P) 

否则 继续 

IF DF= 1，R(P) 

+ 2 -~>R(P) 

否则 继续 

IF DEF= 0，R(P) 
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则 长 跳跃 
如 果 Q= 1 LSQ CD 


则 : 


| 跃 
长 涨 跃 


如 果 Q= 0 


则 长 跳跃 


如 


果 EE = 


则 长 跳跃 


不 


罢 


操作 


二 


转 信 


转 
重 
存 


放 


zOQ 
下 建 Q 


涩 入 了 至 


LSNQ CS 


LS51E CC 


工 DD 开 0 0 
NOP Cd4 
SEEP DN 
SEXX EN 
3SEQ 7B 

REQ 了 人 入 
SAV 78 
至 堆栈 MARK 78 
RE 卫 工 70 


+ 2 ->RCP》 
否则 继续 
IFQ=]T，RGP) + 
2 ->R《D) 
否则 继续 
IFEQ=0，RGP) 
2 -~ 人 (P) 
否则 继续 
IE | 了 = 1，RP)+- 
2 -~ 及 (了 ) 
将 则 继续 
等 待 DMA 臣 中 断 ， 
M(CR(C0))-BUS 
继续 
N->P 
和 一 入 
1 ->Q 
0 人 
T>M (CR (X》) 
(X，P)->T (X，P)- 
MICRN\2 7)) 
然后 P->X R (2) 一 
->RC27) 
M(CR(X))- 一 (X，P) 
RCX)+ 1->R(CX) 
1 ->T 世 


输出 2 


输出 3 


输出 1 


DIS 


OUT1 


OUT2 


OUT3 


OUT1 


OUT5 


OUT6 


OUT7 


INP1 


71 


61 


62 


63 


64 


50 


69 


M (CR( 和 ))->(X， 下 ) 史 
R(X)+ 工 一 及 (X) 3 

0 -> 工 世 
MCRCX)) 一 BUS: 
R(X) + 工 ->R (X) 
N 线 为 1 
M(R(X)》 ) -> 了 BUS 
R(CX)+T 1 一 ROX) RN 
线 为 2 
MI(R(X) 》 ->BU9 
R(CX)+ 1->R (X) ， 
六 线 为 3 
M(GR (X) ) ->BU95 
R(CX) + 工 -RIOX) 
线 为 4 
M(RCX)》 ) 一 BUS 
RCOX)+ 1T->RCOX) NT 
线 为 5 

M(RICX) ) ~BUS 
R(X)+ 1->RCOX) 和 
线 为 6 
M(R(X))- 一 BUS 
RCX)+ 工 一 人 (X); 

N 线 为 7 

BU9- 一 M (R (X) 》 
BUS->D; N 线 为 1 


ea。 193 


答 入 2 


输入 3 


:输入 4 


输入 5 


输入 6 


有 输入 7 


* 194。 


INP2 


INP3 


INP4 


INP5 


INP6 


INP7 


6A 


6B 


6C 


6D 


6 王 


6F 


BUS9 ->M (CR (CX) ) 
BUS->D; N 线 为 2 
BUS->M (CR (X) ) 
BUS-~>D N 线 为 3 
BUS->M (CR (X) ) 
BUS->D N 线 为 4 
BUS9->M (R (X) )》 
BUS->D; N 线 为 5 
BUS->M (CR (X) ) 
BUS->D N 线 为 6 
BUS->M (CR (X) ) 
BUS->D; N 线 为 7 


三 、1802 操作 码 表 


LSD 
N 
AN 0 1 2 3 4 5 
ANN 
SR 
下 一 -一 国 
0 | IDLE LDN 
1 INC 
2 DEC 
BDEF 
3 BR BQ BZ BPZ B1 日 2 
BOGE 
4 LDA 
5 STR 
6 IRX OUTLI OUT2 OUT3 0OUT4 0UT5 
7 RET “DIS LDXA  STXD ADC SD8 
8 GLU 
9 GHI 
人 A PLO 
B PHT 
( LSBR  LBQ  LBZ LBDEF NOP LSNQ 
D 5SEP 
E SEX 
人 LDX OR AND XOR ADD SD 
| 
| (0) 1 2 | 4 5 


6 7 

B3 B 和 
0UT6 0OU1m 
SHRC ”SMB. 
RSHR 

LSNZ LSNF 
SHR SM 

0 7 


8 9 人 B @ D 已 P 
SKP PNF 
人 BR 5NQ  BNZ  BM  BN1 BN2 EN3 8BN4 
8L 


INP1 INP2 INP” INP4 INP5 INP6,， INDP7 


号 ATV MARK REQ 5SEQ ADCI SDBI SHLC SMRBI1 
RSIHL 


LSKP LBNQ LBN2Z  LBNF 上 SI 也 LSQ LS2 LSDF 
NLBR 


LDI GORI ANI XRI A 人 EBDI SDI1 SHUL SMI 


Sm 


附录 | 


COMX--EASIC 语句 和 范 数 索引 


ABS DLOAD 
ASC DSAVE 
ATN 尼 了 DT 
CALTL 上 ND 
CHRX 也 了 D 
CLD 王 OP 
CELS 卫 对 1 上 
CTRL 卫 XP 
COLOR FTXED 
COS FNUM 
CPOS EGR 
CTONE FORMAL 
DATA FFVAL 
DERFINT GOSUB 
DPEUS GOTO 
四 芒 G 1 下 
DIM INPUT 
IN PSAVE 
INUM 民品 


玫 忆 了 READ 


LEN REM 


LET RENUMBER 
LIST RESTORE 
ELOG RETURN 
MEM RND 
MID& RUN 
MOD RUN 
MUSIG SCREEN 
NEW SGN 
NEXT SHAPE 
NOISE SIN 
上 芋 卫 天 SQR 
PIT 人 TAB 
PLOAD 个 [ME 
POKE TIMOUT 
了 上 R TONE 
FRINT TRACE 
USR 
VOLUME 
WAIT 
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